home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User: China
/
Acorn User China CD-ROM (UK) (Disc A)
/
Acorn User China CD-ROM (UK) (Disc A).bin
/
HENSA
/
DATABASE
/
EDS.ARC
/
!EDS_!RunImage
(
.txt
)
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
RISC OS BBC BASIC V Source
|
1997-09-25
|
182.0 KB
|
8,554 lines
EDSS version 1.01
(C) 1997 Tom Humphrey, refere to online documentation for licence conditions
&606C0:
&400C0,310,&4B534154,Uy$,O
xr%,qi%:
&400DA:
p_(Uy$+
A("IEr")+" "+
$+" @"+
:Al%=
&406C1:
6,&81,0,&FF
,JJ%:
JJ%>=&A5
JJ%=
Uu:Ky$="":NO%=0:
er%&FF:J$="":Qy$="":Uy$=
A("App"):my$=
A("InD"):Hy$=
A("ApS"):By=6193:I=1<<30:q=(1<<30)+(1<<&C):V_=(1<<30)+(1<<&C):P=0+I:JJ=16+I:fy=32+I:NJ=48+I:PJ=64+I:VJ=80+I:I_=96+I:K_=&70+I:SJ=&80+I:G_=&90+I:m_=&A0+I:AJ=&B0+I
p_=&C0+I:F_=&D0+I:BJ=&E0+I:f_=&F0+I:o_=16+q:M_=32+q:R_=48+q:L_=64+q:t_=80+q:u_=96+q:C_=&70+q:z_=&80+q:i_=&90+q:B_=&90+q:g_=&A0+q:ky=&B0+q:H_=&C0+q:ny=&D0+q:uy=&E0+q:h_=&F0+q:X_=272+q:jy=684+(31*44)
o`%&FF,m`%&FF:$o`%="KTARN;Pptr_write;F0d;A"+
A("RealValidation"):$m`%="KTARN;Pptr_write;F0d;A"+
A("IntegerValidation"):
O 80:O!0=1:O!4=2:O!8=3:O!&C=4:O!16=5:O!20=6:O!24=7:O!28=8:O!32=&A:O!36=&E
O!40=&502:O!44=&400C0:O!48=&400C1:O!52=&400CC:O!56=&80144:O!60=&80145:O!64=&80147:O!68=&47700:O!72=&400C9:O!76=0:
Z%256:
va%&FF:
4:va%!I%=0:
J%44:
L%40:
v%260:
qr%4:qr%!0=0:
Yy%20:
HO%8:
nZ%20:
Ir%&FF:
l_%&82:
k_%64:
ji%64:
Ka%&FF:
wo%&FF
aB%32:
_Z%32:
PZ%32:
mr%16:
or%16:
cr%16:
AZ%16:
SZ%16:
l`%256:
HZ%16:
DB%40:
ge%40:
zr%16,pr%16,be%16:
wi%16,Q`%16:
p ("<DataBase$Dir>.Code"):
Hr%256,sB%256:
("Load <DataBase$Dir>.Code "+
~(no%)):
p ("<DataBase$Dir>.MoveCode")
("Load <DataBase$Dir>.MoveCode "+
~(Sk%)):@%="+g10.9":Ry%=
:_a%=
:lO%=
:ly%=Ry%:sl%=-1:vy%=-1:xJ%=-1:ul%=-1:`l%=-1:P%=0:x%=0:R%=0:iJ%=0:i%=&FFFFFFF:Zy%=-1:vn%=-1:t%=0:Gu%=
:n_%=
:Wu%=
:K`%=-1:By%=-1:s_%=-1:ny%=-1:Py=0:Xy=-1:Ui%=0:Fa%=-1:Y`%=-1
SB%=-1:
C%(1,2):
G%(1,2):
Z%(&F):
J%(&F):
F%(&F):
F$(&F):yy$=
(27)+
(&81):Iy$=
(27)+
(&80):lB%=-1:jB%=-1:sO%=-1:an%=-1:sJ%=-2:gB%=-1:d$="File_0AB":eJ%=&AB:wl%=-1:Vu%=&C80:UJ%=800:Li%=
:Bl%=
:rJ%=0:au%=0:Ja%=-1:T_%=0:`n%=&FF
P$(&D),W$(&D),D%(&D),B%(&B),P%(&B),W%(&B):u`%=
:W$()=" STARTS "," ENDS ","="," AND ",","," OR ",";",">","<"," NOT "," HAS ","""","'"," EQUALS ":P$()="STARTS ","ENDS ","=","AND ",",","OR ",";",">","<","NOT ","HAS ","""","'","EQUALS "
D%()=0,1,2,3,3,5,5,6,7,8,9,&A,&B,2:B%(0)=32+16:B%(1)=32+16:B%(2)=32+4:B%(3)=0:B%(4)=0:B%(5)=0:B%(6)=32+8:B%(7)=32+2:B%(8)=1:B%(9)=32+16:B%(&A)=0:B%(&B)=0:W%(0)=
32:W%(1)=
32:W%(2)=
16:W%(3)=0:W%(4)=0
W%(5)=0:W%(6)=
16:W%(7)=
16:W%(8)=
0:W%(9)=
(32+8+2):W%(&A)=
64:W%(&B)=
64:P%(0)=8+32:P%(1)=2+32:P%(2)=4+16:P%(3)=0:P%(4)=0:P%(5)=0:P%(6)=8+16:P%(7)=2+16:P%(8)=1:P%(9)=8+2+32:P%(&A)=64:P%(&B)=64:Fi%=&400C7:An%=0:b_%=0:Qu%=0:h_%=0:Oy=37
C$(Oy),A%(Oy):
C$(I%):
GraphTools,GraphDBox,Axis,Styles,Lables,1stFlnt,AxisSetup,Entries,Stat_Num,Stat_Bool,Stat_String,Graph,PrintText,MainOptions,progInfo,PrintGraph,RecordTools,Error
SaveAs,Preferences,PrintText,TxtFldDBox,QBE,Valid,FreqMain,FreqPain,Subset_pain,Search,Finds,PieBarAxis,FieldRange,QuickAddFld,2ndFlnt,GraphView,Key,KeyPain,SwtFldDBox,NumFldDBox
M=&C:M=20:Gy=1<<22:W_=7<<24:x_=0<<28:i=&64:ay=&65:v_=7:Y_=8:t=&E:Uy=5:Qy=6:Dy=2:Ly=&A:cy=9:k=0:w_=&64:Fy=3:x=7:Yy=x+64:qy=x+64:f=&F:Cy=2:m=3:a=6:z=7:h=&A:X=9:by=7:hy=5:H=&B:Q=8:G=6
Nxy=Q+64:dy=G+&80:GJ=G+64:ey=G+&80:L=16:ty=&E:gy=4:R=3:Y=2:zy=1:Ky=&F:
du:uO%=&400D9:uO%=&400D9:sy=1<<17:
Fi%,By,Z%,An%
17,18,19:
a_(Qe%)
eJ%:Cy%=&FA*R%:Cy%+=wy%*x%:
Cy%+=R%*2*x%
Cy%+=16*H_%
Cy%=&400
:=Cy%
t(wy,Uy%,h%,mk%)
F$,My$,ql%:My$=
0:F$=
(28)+
My$,((mk%+4)
3))-(mk%+1)):ql%=wy*(1<<16):F$+=
(ql%)+
(ql%>>8)+
(ql%>>16)+
(ql%>>24):F$+=My$+My$:F$+=
(ql%)+
(ql%>>8)+
(ql%>>16)+
(ql%>>24):F$+=
(Uy%)+
(Uy%>>8)+
(Uy%>>16)+
(Uy%>>24)
-.F$+=
(h%)+
(h%>>8)+
(h%>>16)+
(h%>>24):=F$
F_(c$)
c$,"."):c$=
c$,".")+1):
&400CF,,Z%:
Z%!&C<>Y`%
&42401:Z%!20=Z%!&C:Z%!24=Z%!16:Z%!28=Z%!0:Z%!32=Z%!4:Z%!36=
a_(wl%):Z%!0=64:Z%!&C=0:Z%!16=1:Z%!40=wl%:$(Z%+44)=
Z(A%(k`%),1))+
&400E7,17,Z%,Z%!20,Z%!24:gB%=Z%!8
v_(k`%,U$)
&FFF:
hl(U$)
_a(U$)
&AFF:
ju(U$)
&DFE:
ul(U$)
Ua(U$)
&400D4,,-1:
J(A%(k`%)):
cB%,By$:By$="<DataBase$Dir>"+".Sprites":cB%=
p(By$)+20:
j_%cB%:!j_%=cB%:
46,266,j_%,By$:
46,296,j_%,"Tile"
,,,vl%,hJ%:vl%=vl%*OB%:hJ%=hJ%*_B%:d`%=
cy(j_%,"Tile"):
&400ED,512,j_%,d`%,,,,wi%,Q`%:vl%=(vl%*(wi%!0))/(wi%!8):hJ%=(hJ%*(wi%!4))/(wi%!&C):
p(By$)
X%,E%:X%=
(By$):E%=
#X%:=E%
cy(j_%,jy$)
46,280,j_%,jy$
,,pe%:=pe%
U(My%)
ul%=-1
A("DSC"),My%,ul%)
Uo%,Ao%,Py%:
92,ul%
Py%,Ao%:
42,ul%,My%-Ao%
,Uo%:
Uo%<My%-Ao%
A("IDC")
:=Py%
uu%,Mi%:
&400EC,-1,-1
(Ry%-&8000)+My%>uu%
&400EC,(Ry%-&8000)+My%,-1
(Ry%-&8000)+My%>Mi%
A("IES")
:=Ry%
w_(ul%)
&400EC,Ry%-&8000,-1
Ui(My%)
uu%,_n%:
92,`l%
_n%,uu%:
42,`l%,-(uu%-(Ry%-My%-_n%))
uu%,Mi%:
&400EC,-1,-1
&400EC,(Ry%-&8000)-My%,-1
Mi%:_a%=Mi%+&8000-1
K(My%)
uu%,ck%:
92,`l%
_n%,uu%:
Ry%-_n%+My%<=uu%
42,`l%,My%-(uu%-(Ry%-_n%))
,ck%:=ck%<>0
uu%,Mi%:
&400EC,-1,-1
(Ry%-&8000)+My%<uu%
&400EC,(Ry%-&8000)+My%,-1
Mi%:_a%=Mi%+&8000:
Ry%+My%<=_a%
_a%-=1:=
py(c$,My%,
A_%,Py%:
&66,0,-1,My%,-1,&80,-1,0,0,c$
,CO%,,Py%;A_%:
A("IDC")
:=Py%
ul%<>-1
w_(ul%)
`l%<>-1
w_(`l%)
&20066,1,CO%:CO%=-1:
Iy:Ry%=-1
&400EC,lO%-&8000,-1
Mi%:_a%=Mi%+&8000-1:Ry%=lO%
:zy%=-1:ly%=-1:Y_%=-1:vy%=-1:sl%=-1:fJ%=-1:xJ%=-1:
Hy%,Bk%,q`%,ie%,vZ%:
uO%,,"<DataBase$Dir>"+".Templates":
(C$(),1):
&400DB,,0,,,,C$(I%),0
,Bk%,AO%,,,,Hy%:
Hy%=0
1,"Template: "+C$(I%)+" not found."
U(Bk%):
ie%AO%:
&400DB,,q`%,ie%,ie%+AO%,va%,C$(I%),0:q`%!64=j_%:
&400C1,,q`%
A%(I%)
&400DA:
Ku(A%(&B)):
Ku(Ie%)
p%:F%()=0:Z%!0=Ie%:
&400CC,,Z%:J%(0)=Ie%:
Z%! (72+4)64:
&400C1,,Z%+4
J%(p%):
m(Wa%)
J%(p%)<>Wa%
p%<=&E:p%+=1:
J%(p%)=Wa%
A(A%(&E),1,Hy$):
A(A%(&E),2,my$):
A(A%(&E),3,"
1997 T. Humphrey"):
A(A%(&E),4,"1.01 (22nd September 1997)"):
wu:J%!0=-1:J%!4=0:J%!8=0:J%!&C=68:J%!16=68:J%!20=&301A:$(J%+24)=Hy$:
&400C2,0,J%
p_(e$)$(v%+4)=e$+
(0):!v%=
&400DF,v%,1,Hy$:
qi%<>0
&400DD,qi%,&4B534154
&406C2:e$=
Al%=20
Al%=P:e$+=
A("NEr")
rJ%=1
p_(Uy$+" has suffered an internal error: Nested Error, "+
$+" @"+
#Li%:Li%=
:e$+=
A("LoC"):Al%=Al%
V_)=0
7:rJ%=1:
A(A%(17),3,
A("IEF")):e$+=" @"+
A("UnQ")
D(A%(17),dJ%,i,(&474*(2/3))-((
A("Con"))*8)+18),-388,(&474*(2/3))+((
A("Con"))*8)+18),(-388)+(4*17),DB%,
A("Con")):
D(A%(17),nJ%,ay,(&474/3)-((
A("Qit"))*8)+&A),-388,(&474/3)+((
A("Qit"))*8)+&A),(-380)+(4*&D),ge%,
A("Qit"))
Oy(A%(17),0,"Fault")
65536)=65536
A(A%(17),3,
A("FiE")):rJ%=3:
D(A%(17),dJ%,i,(&474/2)-((
A("OK"))*8)+18),-399,(&474/2)+((
A("OK"))*8)+18),(-388)+52,DB%,
A("OK")):
Oy(A%(17),0,"Error")
V_)=q
rJ%=2+(Al%
&FF0):
A(A%(17),3,
A("War")):
D(A%(17),dJ%,i,(&474*(2/3))-((
(L$)*8)+18),-388,(&474*(2/3))+((
(L$)*8)+18),(-388)+(4*17),DB%,L$):
D(A%(17),nJ%,ay,(&474/3)-((
(H$)*8)+&A),-388,(&474/3)+((
(H$)*8)+&A),(-380)+(4*&D),ge%,H$)
Oy(A%(17),0,"Warning")
A(A%(17),3,
A("ErF")):rJ%=3+(Al%
&F0):
D(A%(17),dJ%,i,(&474/2)-((
A("OK"))*8)+18),-399,(&474/2)+((
A("OK"))*8)+18),(-388)+52,DB%,
A("OK")):
Oy(A%(17),0,"Error")
A(A%(17),4,
g(e$,43)):
A(A%(17),6,
g(e$,43)):
A(A%(17),5,
g(e$,43)):
A(A%(17),7,
g(e$,43)):
&400D2,-1,-1:
F$,Cy%)
Q%,Ta%,xy$:Q%=1:Ta%=1:
Q%<=Cy%:
F$,Q%,1)=" "
Ta%=Q%-1
:Q%+=1:
Ta%=1
F$,Q%):F$=
F$,Q%+1)
F$,Ta%):F$=
F$,Ta%+2)
:=xy$
s_(A%(17)):L%!0=A%(17):
&400E0,,L%:
L%!4,L%!8,(L%!&C-L%!4)-2,(L%!16-L%!8)-4:
s_(ay%)
Qy%,eu%:L%!0=ay%:
&400CB,,L%:Qy%=(L%!&C)-(L%!4):eu%=(L%!16)-(L%!8):L%!4=(Ou%/2)-(Qy%/2):L%!&C=(Ou%/2)+(Qy%/2):L%!8=(ru%/2)-(eu%/2):L%!16=(ru%/2)+(eu%/2):L%!28=-1:
&400C5,,L%:
Jk%,rk%:
53,-1,4
,,Jk%:
53,-1,5
,,rk%:OB%=2^Jk%:_B%=2^rk%:
53,-1,&B
,,Ou%:
53,-1,&C
,,ru%:Ou%=Ou%*OB%:ru%=ru%*_B%:
Z%!&C
A%(7):
A%(22):
A%(0):
A%(M):
A%(&D):
A%(21):
A%(&F):
A%(16):
A%(31):
A%(17):
(Z%!16)=i
(Z%!16)=ay
A%(19):
A%(23):
A%(18):
Da(18,_$,AJ%)
A%(25):
A%(26):
A%(27):
A%(28):
A%(1):
A%(2):
A%(29):
A%(34):
A%(35):
A%(4):
A%(5):
A%(32):
A%(6):
A%(33):
u%:u%=
m(Z%!&C):
u%<>-1
el(u%)
wZ%,t`%,Oi%,py%,Zi%:
A%(7):Oi%=(Z%!&C)-(Z%!4):
N(A%(&D),Z%!4+On%,Z%!8+on%,Z%!28):
N(A%(16),Z%!4+L`%,Z%!16+_`%,A%(&D)):Z%!28=A%(16):
&400C5,,Z%:
N(A%(30),Z%!4,(Z%!16)+42,A%(7))
Oi%<>UJ%
Oi%>UJ%
t`%=UJ%-22
t`%=Oi%-22
:UJ%=Oi%:
LZ%!0=A%(7):Z%!4=t`%:Z%!8=-&FFFFFF:Z%!&C=Oi%:Z%!16=0:
&400C9,,Z%
&400D1,A%(7),t`%,-&FFFFFF,Oi%,0
Zy%<>-1
&400D3,,J%:Zi%=J%!20:
&400D2,A%(7),Zy%,,,-1,Zi%
A%(22):
N(A%(26),(Z%!4)+16,(Z%!8)+&64,Z%!28):Z%!28=A%(26):
&400C5,,Z%
A%(34):
N(A%(35),(Z%!4)+8,(Z%!8)+&96,Z%!28):Z%!28=A%(35):
&400C5,,Z%
N(A%(1),Z%!4+Un%,(Z%!8)+Dn%-Pn%,Z%!28):
N(A%(0),Z%!4+Yn%,(Z%!16)+wn%,A%(1)):Z%!28=A%(0):
&400C5,,Z%
A%(24):
N(A%(25),Z%!4,Z%!16-Ri%,Z%!28):Z%!28=A%(25):
&400C5,,Z%
A%(&D):
&400C5,,Z%:L%!0=A%(7):
&400CB,,L%:On%=Z%!4-L%!4:on%=Z%!8-L%!8:L%!0=A%(16):
&400CB,,L%:
L%!28<>A%(&D)
N(A%(16),L%!4,L%!8,A%(&D)):L%!0=A%(7):
&400CB,,L%:
N(A%(7),L%!4,L%!8,A%(16))
A%(16):L%!0=A%(&D):
&400CB,,L%:
N(A%(&D),L%!4,L%!8,Z%!28):Z%!28=A%(&D):
&400C5,,Z%:L%!0=A%(7):
&400CB,,L%:L`%=Z%!4-L%!4:_`%=Z%!8-L%!16:
N(A%(7),L%!4,L%!8,A%(16))
A%(0):
&400C5,,Z%:L%!0=A%(&B):
&400CB,,L%:Yn%=Z%!4-L%!4:wn%=Z%!8-L%!16
A%(1):
&400C5,,Z%:L%!0=A%(&B):
&400CB,,L%:Un%=Z%!4-L%!4:Dn%=Z%!16-L%!8
&400C5,,Z%
K`%<>-1
Jy%=0
C(A%(26),Jy%):
ai%,Xy%,M%,Jy%,hi%,Sa%:ai%=R%*(60):
ai%<292
ai%=292
_(A%(26),-ai%):Xy%=0:
B(vy%+(H_%*Ll%)+&E+(R%*2),vy%+(H_%*16),&80*R%):hi%=vy%+(H_%*16):Sa%=vy%+(H_%*Ll%):
A(A%(22),18,$Sa%):
R%-1:
D(A%(26),LJ%,Jy%,4,Xy%-8-52,&C0+4,Xy%-8,LJ%+24,$((S%!(M%*4))+8))
j(A%(26),`_%,Jy%,&FA,Xy%-8-52,298,Xy%-8,hi%+(R%*&80)+(M%*3),
(?(Sa%+&D+(M%*2))),m`%):Ai%!8=Xy%-60:Ai%!16=Xy%-16:
&400C2,,Ai%
Z(A%(26),Jy%,?(Sa%+&E+(R%*&82)+(M%
(1<<(M%
8))):Il%!8=Xy%-60:Il%!16=Xy%-8:
&400C2,,Il%
Z(A%(26),Jy%,(?(Sa%+&E+(M%*2))=0)):xl%!8=Xy%-60:xl%!16=Xy%-8:
&400C2,,xl%
Z(A%(26),Jy%,(?(Sa%+&E+(M%*2))=1)):
j(A%(26),`_%,Jy%,366,Xy%-8-52,926,Xy%-8,hi%+(M%*&80),$(hi%+(M%*&80)),kn%):Xy%-=60:
:K`%=Jy%:
&400D1,A%(26),0,-&FFFFFF,&FFFFFF,0:
Ul%,NB%,ol%,Qe%:L%!0=A%(25):
&400CB,,L%:Ri%=(L%!16)-(L%!8):L%!0=A%(21):
&400CB,,L%:fn%=(L%!16)-(L%!8):KZ%=(L%!&C)-(L%!4):L%!0=A%(16):
&400CB,,L%:Ul%=(L%!&C)-(L%!4):NB%=(L%!16)-(L%!8):L%!0=A%(&D):
&400CB,,L%:ol%=(L%!16)-(L%!8)+42:L%!0=A%(7)
&400CB,,L%:On%=0:on%=-ol%:L`%=-(Ul%+1):_`%=-NB%:L%!0=A%(0):
&400CB,,L%:Ul%=(L%!&C)-(L%!4):NB%=(L%!16)-(L%!8):L%!0=A%(&B):
&400CB,,L%:br%=(L%!16)-(L%!8):Yn%=-Ul%:wn%=-NB%:Dn%=-80:Un%=0:L%!0=A%(1):
&400CB,,L%:Pn%=(L%!16)-(L%!8):
Cy(ay%,uJ%,wJ%)L%!0=ay%:
&400CB,,L%:L%!&C=uJ%+(L%!&C)-(L%!4):L%!16=wJ%+(L%!16)-(L%!8):L%!4=uJ%:L%!8=wJ%:
&400C5,,L%:
N(ay%,uJ%,wJ%,nr%)L%!0=ay%:
&400CB,,L%:L%!&C=uJ%+(L%!&C)-(L%!4):L%!16=wJ%+(L%!16)-(L%!8):L%!4=uJ%:L%!8=wJ%:L%!28=nr%:
&400C5,,L%:
J(ay%)L%!0=ay%:
&400C6,,L%:
a(ay%)L%!0=ay%:
&400CB,,L%:L%!28=-1:
&400C5,,L%:
Oy:Z%!0=A%(p%):
&400C6,,Z%:
Wy:Wu%=
:n_%=
C(A%(7),Zy%):Zy%=-1:i%=-1:Bl%=
LO%,Q%,u%:
&400CF,,L%:LO%=
(-1):
(Z%!0=A%(7))
A("Can"):H$=
A("Dis"):
A("UnQ")
&400C6,,Z%:
A%(7):
A%(24):Z%!0=A%(25):
&400C6,,Z%
By%:s_%=-1
J%(u%)=Z%!0
Au(u%,Z%!0)
A%(7)
I$,".")
(I$)-Q%,1)<>".":Q%+=1:
5+sy,"Filer_OpenDir "+
(I$)-(Q%+1))
Sl%=i%
Fi%=&400E1
i%<>-1
Py(i%,
b(i%+64,vJ%),64,x%):
Py(i%,
b(i%,vJ%),0,P%):
aJ(t%)
i%=ny%
i%=s_%
&F)=1
mJ(i%)
&F)=2
ZJ(i%)
((F%(u%)
16)=0)
((F%(u%)
1)<>0)
V%=u%:
k(u%):
:Fi%=&400C7:By=6193
iy(`y,_y)J$=
(`y):Qy$=
(_y):
A(A%(30),2,
A("RWr")):L%!0=A%(7):
&400CB,,L%:
N(A%(30),L%!4,(L%!16)+42,A%(7)):
X%,Y%,x_%,B$,Ly%,F,UB%,a`%,Ay,Jy:
&400CF,,Yy%:X%=Yy%!0:Y%=Yy%!4:x_%=Z%!24:
x_%=8
x_%=&7F
x_%>=32
x_%<=&FF
A%(7):
Z%!4=Zy%
t%=ty%
x_%>32
x_%<>&7F
&406C0:
DJ:ty%=P%:
A(A%(7),Zy%,
(x_%)):
T_(Zy%,i%):
&400D2,A%(7),Zy%,,,-1,1:
&406C1
Z(A%(7),Zy%):
B$,1)=" "
B$,2):
A(A%(7),Zy%,B$):
T_(Zy%,i%):
&400D2,A%(7),Zy%,,,-1,0
t%<ty%
vJ%=(!((!b%)+(t%*2)))
&FFFF
vJ%=(!((!b%)+((t%-1)*2)))
&FFFF
(B$)>(?((S%!(i%*4))+278))
fy(i%,
(B$)+4):?((S%!(i%*4))+278)=
(B$)+4:
m:Vu%=
T:$((!((!e%)+(vJ%*4)))+
F(i%))=B$:
$((!((!e%)+(vJ%*4)))+
F(i%))=B$
:Fi%=&400E1:An%=
+20:By=6192:
T_(Zy%,i%):
Hy(i%):
i%=s_%
IJ(i%)
1:Ly%=&A^(?((S%!(i%*4))+279)):B$=
Z(A%(7),Zy%):
qy:F=
(B$):UB%=!((S%!(i%*4))+281):a`%=!((S%!(i%*4))+285):
((F>UB%)
(F<a`%))
((?((S%!(i%*4))+278))
7:Gu%=
iy(a`%,UB%)
J(A%(30)):Gu%=
Rl(i%,t%,F*Ly%):
t%<ty%
vJ%=(!((!b%)+(t%*2)))
&FFFF
vJ%=(!((!b%)+((t%-1)*2)))
&FFFF
:Fi%=&400E1:An%=
+20:By=6192:
Hy(i%)
2:B$=
Z(A%(7),Zy%):
qy:F=
(B$):Ay=|((S%!(i%*4))+281):Jy=|((S%!(i%*4))+286):
((F>Ay)
(F<Jy))
((?((S%!(i%*4))+278))
7:Gu%=
iy(a`%,UB%)
J(A%(30)):Gu%=
hu(i%,t%,F):
t%<ty%
vJ%=(!((!b%)+(t%*2)))
&FFFF
vJ%=(!((!b%)+((t%-1)*2)))
&FFFF
:Fi%=&400E1:An%=
+20:By=6192:
Hy(i%)
A%(26):
A%(25):
&400DC,x_%
Z%!0=A%(&B)
@&g_%=V%:Fa%=A%(&B):
G(A%(&F),X%,Y%)
My:Bl%=
G(A%(M),X%,Y%)
386:T%=
Q(X%,Y%):
A(A%(31),1,
A("NeF")+
(R%)):
Cy(A%(31),X%,Y%)
A(A%(18),1,I$):
A(A%(18),0,d$):
Q(A%(18),
A("SAs")):AJ%=eJ%:_$=d$:
G(A%(18),X%,Y%)
Z%!0=A%(&B)
A(A%(18),1,
A("DrF")):
A(A%(18),0,"File_AFF"):
Q(A%(18),
A("ExG")):AJ%=&AFF:_$="File_AFF"
A(A%(18),1,
A("Txt")):
A(A%(18),0,"File_FFF"):
Q(A%(18),
A("ExT")):AJ%=&FFF:_$="File_FFF":Ba%=
G(A%(18),X%,Y%)
A(A%(18),1,
A("CSV")):
A(A%(18),0,"File_DFE"):
Q(A%(18),
A("ExC")):AJ%=&DFE:_$="File_DFE":
G(A%(18),X%,Y%)
du%=&D:
Y(yn%,0),X%,Y%)
Z(A%(16),4,
):Yu%=
Z(A%(16),4,
):Yu%=
389:Ll%=_l%:Da%=1:
oJ(Z%!0,Z%!4)
X_(0)
H_(X%,Y%,-1,
Q(X%,Y%))
(?((S%!(
Q(X%,Y%)*4))+277)=1)
(?((S%!(
Q(X%,Y%)*4))+277)=2)
Q(X%,Y%))
m_(X%,Y%)
393:ya%=X%:Ya%=Y%:ma%=Yy%!&C:T%=
Q(ya%,Ya%):
k_(X%,Y%-fn%)
409:T%=
Q(X%,Y%):
r_(T%)
dQya%=X%:Ya%=Y%:ma%=Yy%!&C:T%=
Q(ya%,Ya%):`n%=?((S%!(T%*4))+277):
rJ(X%,Y%-fn%)
Yy(t%)
475:T%=
Q(X%,Y%):
tJ(t%)
(Z%!0)
A%(7):
30,431:
O(0,0):
395,430:
O(-cy%*(P%+1),0):
z(P%)
q(cy%),0):
z(t%-1)
q(-cy%),0):
z(t%+1)
i%=R%-1
t%<>ty%
t%=P%
Yy(t%)
O_(i%,t%):
Yy(t%)
Zy%<>-1
O_(i%,t%)
399,410:
Zy%<>-1
wi(i%,t%)
398,394:
Zy%<>-1
O_(i%,t%)
&400DC,x_%
A%(17):
&400DC,x_%
A%(16):
x_%=&D
Z(A%(16),8)))
&400DC,x_%
A%(18):
bJ(18,AJ%)
&400D4,,-1:
J(A%(18))
&400DC,x_%
A%(27):
J(A%(27))
J(A%(27))
&400DC,x_%
&400DC,x_%
X(D%,k$,`y$)$D%=
A(k$):D%?&C=7:D%?&D=2:D%?&E=7:D%?&F=0:D%!16=
A(`y$))*16:D%!20=44:D%!24=0:
M(D%,R`%,k$,W`%,Hl%,BO%)
m$:m$=
A(k$):D%+=28+(24*R`%):
(m$)<=&C
$(D%+&C)=m$
Hl%=Hl%
&41502,bi%,k$,0
,,D%!&C:D%!16=-1:D%!20=
(m$)+1
:D%!0=W`%:D%!4=BO%:D%!8=Hl%:
Y(D%,R`%,jy$,W`%,Hl%,BO%)D%+=28+(24*R`%):Hl%=Hl%
2:D%!&C=
cy(j_%,jy$):D%!16=j_%:D%!20=0:D%!0=W`%:D%!4=BO%:D%!8=Hl%:
j_(D%,R`%,k$,W`%,Hl%,BO%,pn%)$pn%=
A(k$):D%+=28+(24*R`%):
($pn%)<=&C
$(D%+&C)=$pn%
Hl%=Hl%
256:D%!&C=pn%:D%!16=-1:D%!20=
($pn%)+1
:D%!0=W`%:D%!4=BO%:D%!8=Hl%:
ly(D%,R`%,ly$,W`%,x`%)D%+=28+(24*R`%):$(D%+&C)=ly$:D%!0=W`%:D%!4=x`%:D%!8=Z:
rZ%,sZ%,dZ%:Z=1+32+W_+x_:r=2+32+W_+x_+8:
jl%28+ (4*24):
X(jl%,"App","BarMenuWidth"):
M(jl%,0,"Inf",0,Z,A%(&E)):
M(jl%,1,"Man",0,Z,-1):
M(jl%,2,"Prf",8,Z,A%(19)):
M(jl%,3,"Qit",&80,Z,-1):
kl%28+ (4*24):
X(kl%,"SaT","SaveMenuWidth")
M(kl%,0,"DBF",8,Z,A%(18)):
M(kl%,1,"CSV",8,Z,A%(18)):
M(kl%,2,"Txt",8,Z,A%(18)):
M(kl%,3,"ITx",8+&80,Z,A%(18)):
Jl%28+ (3*24):
X(Jl%,"Fld","FieldMenuWidth"):
M(Jl%,0,"Alt",0,Z,-1):
M(Jl%,1,"Add",0,Z,-1):
M(Jl%,2,"Del",&80,Z,-1):
CJ%28+ (6*24)
X(CJ%,"ReM","RecordMenuWidth"):
M(CJ%,0,"Sav",0,Z,kl%):
M(CJ%,1,"Pri",2+8,Z,A%(M)):
M(CJ%,2,"Fld",8,Z,Jl%):
M(CJ%,3,"ARc",0,Z,-1):
M(CJ%,4,"DRc",&80,Z,-1):
di%28+ (3*24):
X(di%,"Gra","GraphMenuWidth"):
M(di%,0,"Exp",8,Z,A%(18))
M(di%,1,"Pri",0,Z,A%(&F)):
M(di%,2,"Vie",8+&80,Z,-1):
zi%28+ (4*24):
X(zi%,"GrT","GraphTypeMenuWidth"):
M(zi%,0,"PCt",0,Z,-1):
M(zi%,1,"BCt",0,Z,-1):
M(zi%,2,"ScG",0,Z,-1):
M(zi%,3,"LGr",&80,Z,-1):
iu%28+ (7*24):
X(iu%,"FST","FillStyleMenuWidth")
Y(iu%,0,"fill0",0,r,-1):
Y(iu%,1,"fill1",0,r,-1):
Y(iu%,2,"fill2",0,r,-1):
Y(iu%,3,"fill3",0,r,-1):
Y(iu%,4,"fill4",0,r,-1):
Y(iu%,5,"fill5",0,r,-1):
Y(iu%,6,"fill6",&80,r,-1):
mu%28+ (7*24):
X(mu%,"PST","PointStyleMenuWidth")
Y(mu%,0,"style0",0,r,-1):
Y(mu%,1,"style1",0,r,-1):
Y(mu%,2,"style2",0,r,-1):
Y(mu%,3,"style3",0,r,-1):
Y(mu%,4,"style4",0,r,-1):
Y(mu%,5,"style5",0,r,-1):
Y(mu%,6,"style6",&80,r,-1):
_J%28+ (&C*24):
X(_J%,"Ope","StringSearchMenuWidth")
M(_J%,0,"MnuOp0",0,Z,-1):
M(_J%,1,"MnuOp1",0,Z,-1):
M(_J%,2,"MnuOp2",0,Z,-1):
M(_J%,3,"MnuOp3",0,Z,-1):
M(_J%,4,"MnuOp4",0,Z,-1):
M(_J%,5,"MnuOp5",0,Z,-1):
M(_J%,6,"MnuOp6",0,Z,-1):
M(_J%,7,"MnuOp7",0,Z,-1):
M(_J%,8,"MnuOp8",0,Z,-1)
M(_J%,9,"MnuOp9",0,Z,-1):
M(_J%,&A,"MnuOp10",0,Z,-1):
M(_J%,&B,"MnuOp11",&80,Z,-1):
Pl%28+ (6*24):
X(Pl%,"Ope","NumericalSearchMenuWidth"):
M(Pl%,0,"MnuOp0",0,Z,-1):
M(Pl%,1,"MnuOp1",0,Z,-1):
M(Pl%,2,"MnuOp2",0,Z,-1):
M(Pl%,3,"MnuOp3",0,Z,-1)
M(Pl%,4,"MnuOp4",0,Z,-1):
M(Pl%,5,"MnuOp5",&80,Z,-1):
Kn%28+ (2*24):
X(Kn%,"Ope","SwitchSearchMenuWidth"):
M(Kn%,0,"MnuOp0",0,Z,-1):
M(Kn%,1,"MnuOp1",&80,Z,-1):
yn%28+ (2*24):
X(yn%,"Dir","SortDirectionMenuWidth"):
M(yn%,0,"Asc",0,Z,-1)
M(yn%,1,"Dec",&80,Z,-1):
ju%28+ (6*24):
X(ju%,"PrS","PrefixMenuWidth"):
M(ju%,0,"pr1",0,Z,-1):
M(ju%,1,"pr2",0,Z,-1):
M(ju%,2,"pr3",0,Z,-1):
M(ju%,3,"pr4",0,Z,-1):
M(ju%,4,"pr5",2,Z,-1):
M(ju%,5,"Spc",&80,Z,-1):
il%28+ (6*24)
X(il%,"Lin","LinearMenuWidth"):
M(il%,0,"sf1",0,Z,-1):
M(il%,1,"sf2",0,Z,-1):
M(il%,2,"sf3",0,Z,-1):
M(il%,3,"sf4",0,Z,-1):
M(il%,4,"sf5",0,Z,-1):
M(il%,5,"sf6",&80,Z,-1):
Ti%28+ (5*24):
X(Ti%,"Wei","WeightMenuWidth"):
M(Ti%,0,"sf7",0,Z,-1)
M(Ti%,1,"sf8",0,Z,-1):
M(Ti%,2,"sf9",0,Z,-1):
M(Ti%,3,"sfA",0,Z,-1):
M(Ti%,4,"sfB",&80,Z,-1):
ti%28+ (5*24):
X(ti%,"Are","AreaMenuWidth"):
M(ti%,0,"sfC",0,Z,-1):
M(ti%,1,"sfD",0,Z,-1):
M(ti%,2,"sfE",0,Z,-1):
M(ti%,3,"sfF",2,Z,-1)
M(ti%,4,"sfG",&80,Z,-1):
Vi%28+ (5*24):
X(Vi%,"Vol","VolumeMenuWidth"):
M(Vi%,0,"sfH",0,Z,-1):
M(Vi%,1,"sfI",0,Z,-1):
M(Vi%,2,"sfJ",2,Z,-1):
M(Vi%,3,"sfK",0,Z,-1):
M(Vi%,4,"sfL",&80,Z,-1):
_u%28+ (7*24):
X(_u%,"SxU","SuffixMenuWidth")
M(_u%,0,"Lin",0,Z,il%):
M(_u%,1,"Wei",0,Z,Ti%):
M(_u%,2,"Are",0,Z,ti%):
M(_u%,3,"Vol",2,Z,Vi%):
M(_u%,4,"
C",0,Z,-1):
M(_u%,5,"%",0,Z,-1):
M(_u%,6,"Spc",&80,Z,-1):
Cl%28+ (6*24):
X(Cl%,"PgS","PageSizeMenuWidth"):
M(Cl%,0,"PS0",0,Z,-1)
M(Cl%,1,"PS1",0,Z,-1):
M(Cl%,2,"PS2",0,Z,-1):
M(Cl%,3,"PS3",0,Z,-1):
M(Cl%,4,"PS4",0,Z,-1):
M(Cl%,5,"PS5",&80,Z,-1):
G(aO%,X%,Y%)
&400D4,,aO%,X%,Y%:Ja%=aO%:
`(aO%,X%,Y%)
&400E8,,aO%,X%,Y%:
i_(Wa%)v%!0=Wa%:
&400CC,,v%
&400D7,Wa%,v%+44:
&41500,,"<DataBase$Dir>"+".Messages"
,,Cy%:
`r%Cy%,bi%16:
&41501,bi%,"<DataBase$Dir>"+".Messages",`r%:
Ql(n%,m%)
n%=n%
4:!n%=0:
:!(m%-4)=0:
A(k$)
&61502,bi%,k$,er%,&FF,J$,Qy$,0
,,Ky$;NO%:
D(d%)=(
#d%)+((
#d%)<<8)+((
#d%)<<16)+((
#d%)<<24)
q(d%,N%)
#d%,N%:
#d%,N%>>8:
#d%,N%>>16:
#d%,N%>>24:
X(d%,Cy%)
F$,G%,pJ%:G%=
&C,4,d%,v%,Cy%:F$=
$v%,Cy%):pJ%=
(F$):
pJ%<Cy%
#d%=G%+pJ%+1
t_(d%,Py%)
&C,4,d%,Py%,5:
U_(d%,Py%)
&C,2,d%,Py%,5:
l_(d%,n%,Cy%)
&C,2,d%,n%,Cy%:
b_(d%,n%,Cy%)
&C,4,d%,n%,Cy%
;A_%:
A("IvF")
Sy(M%,Cy%)
K(Cy%)
A("Mem")
:S%!(M%*4)=Ry%:Y_%+=Cy%:zy%+=Cy%:ly%=zy%:Ry%+=Cy%:
Ua(U$)
Ia%,M%,d%,O`%,lo%:
&406C0:d%=
(U$):
("Remove "+U$):
A("SaC")
#d%,"EDSS";:
q(d%,3):
q(d%,3):Ia%=0:
Ia%=Ia%
Ia%=Ia%
q(d%,Ia%):
Z(A%(&D),3)+
(&D),30);:
q(d%,x%):
q(d%,R%):
R%-1:Iy%=?((S%!(M%*4))+277):
$((S%!(M%*4))+8)+
(&D),&C);:
$((S%!(M%*4))+21)+
(&D),&FF);:
((!((S%!(M%*4))+277))
65791)=0
-O`%=
Qy(M%)+2:
O`%<>(?((S%!(M%*4))+278))
fy(M%,O`%):
:lo%=(!((S%!(M%*4))+277)
-&FF01)+(O`%<<8):
q(d%,lo%)
q(d%,!((S%!(M%*4))+277))
l_(d%,(S%!(M%*4))+537,60)
q(d%,!((S%!(M%*4))+281)):
q(d%,!((S%!(M%*4))+285)):
$((S%!(M%*4))+289)+
(&D),&B);:
$((S%!(M%*4))+301)+
(&D),&B);
U_(d%,(S%!(M%*4))+281):
U_(d%,(S%!(M%*4))+286):
$((S%!(M%*4))+291)+
(&D),&B);:
$((S%!(M%*4))+303)+
(&D),&B);
$((S%!(M%*4))+281)+
(&D),&C);:
$((S%!(M%*4))+294)+
(&D),&C);
R%-1:
l_(d%,Ky%!(M%*4),x%*2):
x%-1:G%=!((!e%)+(U%*4)):
R%-1:Iy%=?((S%!(M%*4))+277):
($G%)+
(&D),?((S%!(M%*4))+278));:G%+=(?((S%!(M%*4))+278))+1
q(d%,!G%):G%+=4
U_(d%,G%):G%+=5
#d%,?G%:G%+=1
uu(d%)
8,18,U$,eJ%:
&406C1:n_%=
:I$=U$:
ky(R%,Uk%)
hl%,Ci%,M%:
6Ry%=
A("DbW"),524+256+(hl%*(R%+R%+1))+Ci%,`l%)
K(524+256+(hl%*(R%+R%+1))+Ci%)
A("Mem")
:hl%=((Uk%+511)
512)*&400:Ci%=((Uk%+&FF)
256)*&400:
Ci%=0
Ci%=&400:hl%=&400
:S%=Ry%:e%=Ry%+256:b%=Ry%+260:_%=Ry%+264:Ky%=Ry%+520:!e%=Ry%+524+256:
M%=-1
R%-1:_%!(M%*4)=Ry%+524+256+Ci%+(hl%*(M%+1)):
R%-1:Ky%!(M%*4)=Ry%+524+256+Ci%+(hl%*(R%+1))+(hl%*M%):
:Ry%+=524+256+(hl%*(R%+R%+1))+Ci%:qu%=Ry%:zy%=Ry%:ly%=zy%:Y_%=Ry%:
lu(D%,u%)
G%,fB%,tB%,Vl%:
:D%!0=jy:D%!4=-1:$(D%+8)="":$(D%+264)="":$(D%+520)="":$(D%+552)="":D%?607=1:D%?605=8+16+32+64+&80:D%?(605+1)=256>>8:|(D%+584)=0:|(D%+594)=0:|(D%+589)=0:|(D%+600)=0:D%!608=-1:D%!612=-1:D%!616=0:|(D%+620)=0:|(D%+625)=5
G%=D%+632
(D%+632)+(&C*2)
&C:G%!0=-1:G%!4=-1:G%!8=0:
:D%!668=0:D%!672=
a(209.9):D%!676=
a(297):D%!680=(0.5*(1<<16)):
G%=D%+684
(D%+684)+(44*31)
44:$(G%+0)="":
G%!32:
G%!36:
G%!40:
&FE1A700,&F0835000,&1,&E5E500,&15EED00,&2,&AD6EE500,&9B4C00,&8,&CF7400,&800,&4,&FFFFFE00,&0,&8,&3FFFFE00,&8BD100,&4,&1FFFE00,&B97400,&2,&CCD57000,&B1F500,&1
&B74000,&3AE100,&1,&FAD17E00,&E1EB00,&2,&FFFFFE00,&FA108F00,&3,&3FA3EB00,&0,&4,&1FFFE00,&BD3400
&2,&FFE00,&0,&C,&ED1A00,&32E300,&4,&9BA75C00,&BFEDA100,&8,&FFFFFE00,&1CBF00,&1,&3FFFFE00,&AFED00,&2,&1FFFE00,&0,&3,&FFE00,&F8F7CD00,&4
&F4704C00,&EDC9F300,&3,&FBAF00,&B9F900,&2,&FFFFFE00,&C5D700,&1,&3FFFFE00,&912200,&8,&1E35C00,&A1AF00,&1
&FFE00,&0,&2,&F4F30E00,&28DF00,&3,&F40CF700,&0,&4,&FFFFFE00,&8EA33800,&1,&3FFFFE00,&D1D300,&8,&1FFFE00,&0,&4,&D,&D,&D
o_(u%):
o_(u%)v%!0=0:v%!4=-((Z%(u%)!676)/256)*((Z%(u%)!680)/(1<<16)):v%!8=((Z%(u%)!672)/256)*((Z%(u%)!680)/(1<<16)):v%!&C=0:
&400D7,J%(u%),v%:
&400D1,J%(u%),0,-&FFFFFF,&FFFFFF,0:
Ly:fJ%=(sl%+3)
3:xJ%=fJ%:
Sa(ey%)
Zy(jy):Z%(ey%)=xJ%:
Z%(ey%)
1,"Graph not word alligned"
xJ%+=jy:
Z_$,by$:
by$<>""
ry(by$)
au(l$,u$)
Q%(),B$(),B_%,yu%,PO%:
Jy:ay%=
(l$):o$=
#ay%:
#ay%)<32
PO%=
#ay%=(
#ay%)-1
:Q%=1:B_%=1:
o$,u$,Q%):B_%+=1:Q%=
o$,u$,Q%)+1:
B$(B_%),Q%(B_%):Q%=1:
B_%-1:B$(M%)=
o$,Q%,
o$,u$,Q%)-Q%):Q%=
o$,u$,Q%)+1:
:ve%=
#ay%:yu%=0:
#ay%:
K$<>""
1Q%=1:
B_%-1:Si%=0:Cy%=0:
K$,Q%,1)=""""
Si%=1:Q%+=1
:Ni%=
K$,Q%,1)=""""
K$,Q%+1,1)=""""
Q%+=1:Cy%+=1
K$,Q%+1,1)=u$
Q%+1>
:Q%+=1
Cy%+=1
K$,Q%,1)=u$
Si%=0
Ni%=
Cy%+=1
:Q%+=1:
(K$)):
Q%(M%)<Cy%
Q%(M%)=Cy%
:yu%+=1:
#ay%:
ky(B_%,yu%):
B_%-1:
Sy(M%,604):
f(S%!(M%*4),(S%!(M%*4))+537):Xu%=604:
Q%(M%)<8
Q%(M%)=8
:$((S%!(M%*4))+8)=B$(M%):$((S%!(M%*4))+21)="":?((S%!(M%*4))+278)=Q%(M%):?((S%!(M%*4))+279)=1:?((S%!(M%*4))+277)=0:?((S%!(M%*4))+280)=&FF:!(S%!(M%*4))=604:wy%+=Q%(M%)+1:
:cy%+=60*B_%:
yu%>0
K(((wy%+3)
3))*yu%)
A("Mem")
:Ry%+=(((wy%+3)
3))*yu%):ly%=zy%+(((wy%+3)
3))*yu%):
#ay%=ve%:
yu%-1:!((!e%)+(U%*4))=zy%+(((wy%+3)
3))*U%):G%=!((!e%)+(U%*4)):K$=
#ay%:
:Q%=1:
B_%-1:$G%="":Si%=0:Cy%=0:
K$,Q%,1)=""""
Si%=1:Q%+=1
:Ni%=
K$,Q%,1)=""""
K$,Q%+1,1)=""""
Q%+=1:$G%=$G%+""""
K$,Q%+1,1)=u$
Q%+1>
:Q%+=1
$G%=$G%+""""
K$,Q%,1)=u$
Si%=0
' Ni%=
$G%=$G%+
K$,Q%,1)
:Q%+=1:
(K$)):G%+=Q%(M%)+1:
:P%=yu%:x%=yu%:R%=B_%:iJ%=R%:
y:i%=0:Wu%=
:Vu%=
T:I$=l$:
Uy:ty%=P%:
((P%+1)*cy%)>296
,#O_%=-((P%+1)*cy%):
_(A%(7),O_%)
O_%=-296:
_(A%(7),O_%)
#ay%:Li%=
y(l$):
&406C1:
Ya(l$)
ay%,ZJ%,q$,XZ%,Ty$,Ay$,c_%,B_%:
M%,U%:
Jy:ay%=
(l$):
#ay%,c_%,B_%,ZJ%:
ky(B_%,c_%):
B_%-1:
#ay%,q$,XZ%,Ty$:
Sy(M%,604):wy%+=ZJ%+1:
f(S%!(M%*4),(S%!(M%*4))+537):Xu%=604:$((S%!(M%*4))+8)=q$:$((S%!(M%*4))+21)=Ty$
?((S%!(M%*4))+278)=ZJ%:?((S%!(M%*4))+279)=1:?((S%!(M%*4))+277)=0:?((S%!(M%*4))+280)=&FF:!(S%!(M%*4))=604:
:cy%+=60*B_%:
c_%>0
K(((wy%+3)
3))*c_%)
A("Mem")
:Ry%+=(((wy%+3)
3))*c_%):ly%=zy%+(((wy%+3)
3))*c_%):
c_%-1:!((!e%)+(U%*4))=zy%+(((wy%+3)
3))*U%):G%=!((!e%)+(U%*4)):
#ay%,Ay$:Q%=1:
B_%-1:$G%=
Ay$,Q%,
Ay$,"|",Q%)-Q%):Q%=
Ay$,"|",Q%)+1:G%+=ZJ%+1:
:P%=c_%:x%=c_%:R%=B_%:iJ%=R%:
y:i%=0:Wu%=
:Vu%=
T:I$=l$:
Uy:ty%=P%:
((P%+1)*cy%)>296
5#O_%=-((P%+1)*cy%):
_(A%(7),O_%)
O_%=-296:
_(A%(7),O_%)
#ay%:Li%=
y(l$):
&406C1:
ry(qy$)
d%,C`%,cn%,M%,q$,Ty$,Iy%,c_%,r_%,V_%,G%,qe%,qB%:
&406C0:d%=
(qy$):
A("UOF")
:Li%=d%:qB%=
D(d%):
qB%<>&73614244
qB%<>&53534445
A("IF2")
:OZ%=
D(d%):C`%=
D(d%):
C`%>3
A("VEr")
C`%=0
A("VOl")
Jy:cn%=
D(d%):ey$=
X(d%,30):c_%=
D(d%):B_%=
D(d%):
ky(B_%,c_%):
B_%-1:q$=
X(d%,&C):Ty$=
X(d%,&FF):Iy%=
D(d%)
(-&1000000):
Sy(M%,604):
b_(d%,(S%!(M%*4))+537,60):
f(S%!(M%*4),(S%!(M%*4))+537):wy%+=((Iy%
&FF00)>>8)+1:Xu%=604
Sy(M%,316):!((S%!(M%*4))+281)=
D(d%):!((S%!(M%*4))+285)=
D(d%):
C`%>=3
C=$((S%!(M%*4))+289)=
X(d%,&B):$((S%!(M%*4))+301)=
X(d%,&B)
$((S%!(M%*4))+289)="":$((S%!(M%*4))+301)=""
:wy%+=4:Xu%=316
Sy(M%,316):
t_(d%,(S%!(M%*4))+281):
t_(d%,(S%!(M%*4))+286):
C`%>=3
G=$((S%!(M%*4))+291)=
X(d%,&B):$((S%!(M%*4))+303)=
X(d%,&B)
$((S%!(M%*4))+291)="":$((S%!(M%*4))+303)=""
:wy%+=5:Xu%=316
Sy(M%,308):$((S%!(M%*4))+281)=
X(d%,&FF):$((S%!(M%*4))+294)=
X(d%,&FF):wy%+=1:Xu%=308
:$((S%!(M%*4))+8)=q$:$((S%!(M%*4))+21)=Ty$:!((S%!(M%*4))+277)=Iy%:!(S%!(M%*4))=Xu%:
:cy%+=60*B_%:P%=c_%:x%=c_%:R%=B_%:iJ%=R%:
c_%>0
K(((wy%+3)
3))*c_%)
A("Mem")
:Ry%+=(((wy%+3)
3))*c_%):ly%=zy%+(((wy%+3)
3))*c_%):
gu(d%)
:r_%=((
#d%)-(
#d%)):
&C,4,d%,Ry%-r_%,r_%
,,,CZ%:V_%=Ry%-r_%:
c_%-1:!((!e%)+(U%*4))=zy%+(((wy%+3)
3))*U%):G%=!((!e%)+(U%*4)):
B_%-1:Iy%=?((S%!(M%*4))+277):
0:$G%=
$V_%,?((S%!(M%*4))+278)):
($G%)=?((S%!(M%*4))+278)
V_%+=
($G%)
V_%+=
($G%)+1
($G%)
($G%)-1:
(G%?I%)<32
G%?I%=42:qe%=
:G%+=(?((S%!(M%*4))+278))+1
1:!G%=!V_%:G%+=4:V_%+=4
2:|G%=|V_%:V_%+=5:G%+=5
3:?G%=?V_%:V_%+=1:G%+=1
cl(V_%)
:i%=0:Wu%=
:Vu%=
T:I$=qy$:
Uy:ty%=P%:
((P%+1)*cy%)>296
e#O_%=-((P%+1)*cy%):
_(A%(7),O_%)
O_%=-296:
_(A%(7),O_%)
#d%:Li%=
y(qy$):
&406C1:
P,"Warning: file had some bad record entries, which have been corrected, but may still be corrupt. Bad characters have been replaced with '*'"
y(I$)
mo%,ke%,Ze%:
8,23,I$
,,ke%,mo%:Z%!0=mo%:Z%!4=ke%:
&4304C,-1,Z%,Z%+16,256-16
,Ze%:?Ze%=&D:=$(Z%+16)
e_%,r%,T`%:
6,&E5,0,0:
e_%=0
R%-1:au%=0:T`%=_%!(e_%*4):
x%-1:T`%?0=r%
&FF:T`%?1=r%>>8:T`%+=2:
sa(e_%,?((S%!(e_%*4))+277),
F(e_%),_%!(e_%*4),0,x%-1):
B(_%!(e_%*4),Ky%!(e_%*4),x%*2):
gu(d%)
B_%-1:
b_(d%,_%!(M%*4),c_%*2):
B(_%!(M%*4),Ky%!(M%*4),c_%*2):
ky(0,0):
_(A%(7),296):
Zy%<>-1
&400D2,A%(7),Zy%,,,-1,0
&400D2,A%(7),-1,0,0,1<<25,0
_i%,Oa%,ol%,Ul%:L%!0=A%(16):
&400CB,,L%:Ul%=(L%!&C)-(L%!4):L%!0=A%(&D):
&400CB,,L%:ol%=(L%!16)-(L%!8)+42:
Vu%+Ul%>Ou%-&64
_i%=(Ou%-&64)-Ul%
_i%=Vu%
_i%<800
_i%=800
Oa%<296
Oa%=296
:UJ%=_i%:
cy%+ol%>ru%-&74 -&64
Oa%=(ru%-&74 -&64)-ol%
Oa%=cy%
:L%!0=A%(7):L%!4=((Ou%-(_i%+Ul%))/2)+Ul%:L%!8=((ru%-(Oa%+ol%))/2)+ol%:L%!&C=(Ou%+(_i%+Ul%))/2:L%!16=(ru%+(Oa%+ol%))/2:L%!20=0:L%!24=0:L%!28=-1:
&400C5,,L%:!L%=A%(7):
&400CB,,L%:
N(A%(&D),L%!4+On%,L%!8+on%,L%!28):!L%=A%(7):
&400CB,,L%
N(A%(16),L%!4+L`%,L%!16+_`%,A%(&D)):
__(fk%)
fk%<>s_%
:L%!0=By%:
&400CB,,L%:
J(By%):
H_(L%!4,L%!8,L%!28,fk%)
eu(X%,Y%)
N(A%(23),X%,Y%,-1):
B(k_%,ji%,64):
H_(X%,Y%,Q%,M%)
ay%,Iy%,g`%:g`%=By%:
M%=-1
:s_%=M%:Iy%=?((S%!(M%*4))+277):
0:By%=A%(&A):
IJ(M%)
1:By%=A%(8):
mJ(M%)
2:By%=A%(8):
ZJ(M%)
3:By%=A%(9):
HJ(M%)
UJ(M%):
g`%<>By%
g`%<>-1
J(g`%)
N(By%,X%,Y%,Q%):
UJ(M%)
A(By%,3,
A("1Rc"))
A(By%,3,
(P%)+
A("Rcs"))
A(By%,0,$((S%!(M%*4))+8)):
IJ(M%)
A(By%,5,
A("Lng")+" "+
dy(M%))):
dy(M%)
r%,Cy%,F%,rl%:F%=
F(M%):
P%-1:rl%=
($((!((!e%)+(((!((_%!(M%*4))+(r%*2)))
&FFFF)*4)))+F%)):
rl%>Cy%
Cy%=rl%
:=Cy%
Qy(M%)
r%,Cy%,F%,rl%:F%=
F(M%):
x%-1:rl%=
($((!((!e%)+(((!((Ky%!(M%*4))+(r%*2)))
&FFFF)*4)))+F%)):
rl%>Cy%
Cy%=rl%
:=Cy%
ny(M%)
zB%:zB%=?((S%!(M%*4))+279):
@%="+F."+
(zB%)
@%="+G.9"
mJ(M%)
yy,Jr%,le%,y,F%,r%,oa%,HJ%,Ju%,r$,XJ%,O%,Wy,Zy,v`%,Ly%,@%:
ny(M%):Ly%=&A^(?((S%!(M%*4))+279)):v`%=0:HJ%=0:Ju%=0:r$="":O%=_%!(M%*4):F%=
F(M%):oa%=!((!((!e%)+(((!O%)
&FFFF)*4)))+F%):
P%-1:XJ%=!((!((!e%)+(((O%!(r%*2))
&FFFF)*4)))+F%)
v`%+=XJ%:
XJ%=oa%
HJ%+=1
HJ%=Ju%
r$+=","+
(oa%/Ly%)
HJ%>Ju%
(oa%/Ly%):Ju%=HJ%
:HJ%=1:oa%=XJ%
:Jr%=!((!((!e%)+(((O%!0)
&FFFF)*4)))+F%):le%=!((!((!e%)+(((O%!((P%-1)*2))
&FFFF)*4)))+F%):
HJ%=Ju%
r$+=","+
(XJ%/Ly%)
HJ%>Ju%
(oa%/Ly%)
:yy=v`%/P%:
y=(!((!((!e%)+(((O%!(
(P%/2)*2))
&FFFF)*4)))+F%))+(!((!((!e%)+(((O%!((
(P%/2)-1)*2))
&FFFF)*4)))+F%)):Wy=((!((!((!e%)+(((O%!(
(P%/4)*2))
&FFFF)*4)))+F%))+(!((!((!e%)+(((O%!((
(P%/4)-1)*2))
&FFFF)*4)))+F%)))/2
zZy=((!((!((!e%)+(((O%!(
(P%*0.75)*2))
&FFFF)*4)))+F%))+(!((!((!e%)+(((O%!((
(P%*0.75)-1)*2))
&FFFF)*4)))+F%)))/2:y=y/2
Wy=!((!((!e%)+(((O%!(
(P%/4)*2))
&FFFF)*4)))+F%):Zy=!((!((!e%)+(((O%!(
(P%*0.75)*2))
&FFFF)*4)))+F%):y=!((!((!e%)+(((O%!(
(P%/2)*2))
&FFFF)*4)))+F%)
A(By%,5,
(Jr%/Ly%)+" "+
A("to")+" "+
(le%/Ly%)):
A(By%,&C,
(yy/Ly%)):
A(By%,&D,
(y/Ly%)):
A(By%,&E,r$):
A(By%,7,
(Wy/Ly%)):
A(By%,16,
(Zy/Ly%)):
A(By%,&B,
((Zy-Wy)/Ly%)):
A(By%,22,
(v`%/Ly%)):
ZJ(M%)
yy,DJ,UJ,y,F%,r%,Ny,HJ%,Ju%,r$,py,O%,Yi%,Wy,Zy,_:Yi%=@%:@%="+F.2":_=0:HJ%=0:Ju%=0:r$="":O%=_%!(M%*4):F%=
F(M%):Ny=|((!((!e%)+(((!O%)
&FFFF)*4)))+F%):
P%-1:py=|((!((!e%)+(((O%!(r%*2))
&FFFF)*4)))+F%):_+=py:
py=Ny
HJ%+=1
HJ%=Ju%
r$+=","+
HJ%>Ju%
(Ny):Ju%=HJ%
:HJ%=1:Ny=py
:UJ=|((!((!e%)+(((O%!((P%-1)*2))
&FFFF)*4)))+F%):DJ=|((!((!e%)+(((O%!0)
&FFFF)*4)))+F%):
HJ%=Ju%
r$+=","+
HJ%>Ju%
:yy=_/P%:
y=|((!((!e%)+(((O%!(
(P%/2)*2))
&FFFF)*4)))+F%):y+=|((!((!e%)+(((O%!((
(P%/2)-1)*2))
&FFFF)*4)))+F%):y=y/2:Wy=((|((!((!e%)+(((O%!(
(P%/4)*2))
&FFFF)*4)))+F%))+(|((!((!e%)+(((O%!((
(P%/4)-1)*2))
&FFFF)*4)))+F%)))/2
tZy=((|((!((!e%)+(((O%!(
(P%*0.75)*2))
&FFFF)*4)))+F%))+(|((!((!e%)+(((O%!((
(P%*0.75)-1)*2))
&FFFF)*4)))+F%)))/2
Wy=|((!((!e%)+(((O%!(
(P%/4)*2))
&FFFF)*4)))+F%):Zy=|((!((!e%)+(((O%!(
(P%*0.75)*2))
&FFFF)*4)))+F%):y=|((!((!e%)+(((O%!(
(P%/2)*2))
&FFFF)*4)))+F%)
A(By%,5,
(DJ)+" "+
A("to")+" "+
(UJ)):
A(By%,&C,
(yy)):
A(By%,&D,
(y)):
A(By%,&E,r$):
A(By%,7,
(Wy)):
A(By%,16,
(Zy)):
A(By%,&B,
(Zy-Wy)):
A(By%,22,
(_)):@%=Yi%:
HJ(M%)
r%,XJ%,O%,WB%,F%,Yi%:Yi%=@%:@%="+F.0":F%=
F(M%):O%=_%!(M%*4):WB%=?((!((!e%)+(((!O%)
&FFFF)*4)))+F%):
WB%=0
A(By%,4,$((S%!(M%*4))+281)):
A(By%,6,$((S%!(M%*4))+294))
A(By%,4,$((S%!(M%*4))+294)):
A(By%,6,$((S%!(M%*4))+281))
:r%=-1:
r%+=1:XJ%=?((!((!e%)+(((O%!(r%*2))
&FFFF)*4)))+F%):
XJ%<>WB%
r%=(P%-1):
r%=(P%-1)
XJ%=WB%
r%+=1
A(By%,5,
(r%))+", "+
((r%/P%)*&64))+"%"):
A(By%,7,
(P%-r%))+", "+
(((P%-r%)/P%)*&64))+"%"):@%=Yi%:
m_(X%,Y%)
p%:p%=0:
(F%(p%)
1)<>0
p%<&F:p%+=1:
(F%(p%)
1)<>0
A("NFG")
N(J%(p%),X%,Y%,-1):F%(p%)=F%(p%)
Sa(p%):
lu(Z%(p%),p%):
fJ(p%):
V%=p%:SB%=J%(p%):F%(p%)=F%(p%)
xy(Z%(p%)?607):
N(A%(0),L%!4+Yn%,L%!16+wn%,-1):!L%=J%(p%):
&400CB,,L%:
N(A%(1),L%!4+Un%,(L%!8)+Dn%-Pn%,-1)
Di(M%)
ey%,D%,G%:
ey%=0
F%(ey%)
D%=Z%(ey%):
D%!608>=M%
D%!608+=1
G%=D%+632
(D%+632)+(&C*2)
G%!0>=M%
G%!4<>4
G%!0+=1
Tl(M%)
ey%,D%,G%,Bi%:
ey%=0
&F:Bi%=
F%(ey%)
D%=Z%(ey%):
D%!608>M%
D%!608-=1
D%!608=M%
D%!608=-1:Bi%=
G%=D%+632
(D%+632)+(&C*2)
G%!0>M%
G%!4<>4
G%!0-=1
G%!0=M%
G%!4<>4
G%!0=-1:Bi%=
F%(ey%)=F%(ey%)
ey%=0
(F%(ey%)
(1+16))=(1+16)
'F%(ey%)=F%(ey%)
(F%(ey%)
;F$(ey%)=
A("CSR"):
&400D1,J%(ey%),0,-&FFFFFF,&FFFFFF,0
Hy(M%)
ey%,D%,G%,Bi%:
ey%=0
F%(ey%)
(1+16)
D%=Z%(ey%):
D%!608=M%
Bi%=
G%=D%+632
(D%+632)+(&C*2)
G%!0=M%
G%!4<>4
Bi%=
F%(ey%)=F%(ey%)
16):Bi%=
Au(u%,p%)
(F%(u%)
2SO%=u%:H$=
A("Clo"):L$=
A("Can"):
A("WLG")
SJ(u%,p%):
SJ(u%,p%)
r_%,r%:
V%=u%
J(A%(3)):
J(A%(4)):
J(A%(6)):
J(A%(2)):
J(A%(29)):
J(A%(0)):
J(A%(1)):
J(A%(5)):
J(A%(32)):V%=-1
:r_%=Z%(u%)!0:
B(Z%(u%)+r_%,Z%(u%),xJ%-(Z%(u%)+r_%)):
Z%(r%)>Z%(u%)
Z%(r%)-=r_%
:xJ%-=r_%:
Zy(-r_%):Z%(u%)=0:F%(u%)=0:
k(u%)
r%,r_%,D%:r_%=Z%(u%)!0:
r_%+Z%(u%)<xJ%
U(r_%):
B(Z%(u%),D%,r_%):
B(Z%(u%)+r_%,Z%(u%),xJ%-(Z%(u%)+r_%)):
Z%(r%)>Z%(u%)
Z%(r%)-=r_%
B(D%,xJ%-r_%,r_%):Z%(u%)=xJ%-r_%:
uZ%:Z%!0=A%(3):
&400CB,,Z%:
((Z%!32)
(1<<16))
1Z%!0=A%(4):
&400CB,,Z%:
((Z%!32)
(1<<16))
2Z%!0=A%(34):
&400CB,,Z%:
((Z%!32)
(1<<16))
1Z%!0=A%(6):
&400CB,,Z%:
((Z%!32)
(1<<16))
1Z%!0=A%(2):
&400CB,,Z%:
((Z%!32)
(1<<16))
2Z%!0=A%(29):
&400CB,,Z%:
((Z%!32)
(1<<16))
Jy:dB%=0:fr%=
:_l%=0:A`%=Gi%:Yu%=Gi%:Sl%=0:G`%=0:l_%?0=0:l_%?1=0:l_%?2=&FF:P%=0:x%=0:ty%=0:R%=0:iJ%=0:yr%=
:Wu%=
:n_%=
:ey$=
A("DBN"):wy%=0:I$=
A("DBF"):Fy$=
A("All"):cy%=64:O_%=-296:Vu%=800:UJ%=800:
_(A%(7),O_%):g$=
$:aa%=0:w$="":s$="":Z%()=0
V%=-1:C%()=-1:
_(p%,Y%)
D%:D%=
U(92):!D%=p%:
&400CC,,D%+1:D%!(48)=Y%:
p%=A%(7)
D%!44=0:D%!52=Vu%
&400D7,p%,D%+44:
O(h%,Q%)L%!0=A%(7):
&400CB,,L%:L%!24=h%:
L%!28=Q%
&400C5,,L%:
q(vi%)L%!0=A%(7):
&400CB,,L%:=(L%!24)+vi%
A(A%(&D),5,""):
A(A%(&D),3,ey$):
m$si%="R2;Sascending":
A(A%(&D),6,$((!S%)+8)):
S(A%(&D),5):
S(A%(&D),&A):
S(A%(&D),&C):
S(A%(16),5):
A(A%(&D),5,
A("All")):
S(A%(16),6):
S(A%(16),9):
S(A%(16),4):
S(A%(&D),&E):
S(A%(&D),6):
S(A%(&D),9):
S(A%(&D),8)
P(A%(&D),&C)
P(A%(16),6):
P(A%(16),9):
P(A%(16),4):
P(A%(&D),&E):
P(A%(&D),6):
P(A%(&D),9):
P(A%(&D),8)
$si%="R2;Sdirblank":
A(A%(&D),6,
A("NoF")):
P(A%(&D),9):
P(A%(&D),8):
P(A%(&D),6):
P(A%(16),4):
P(A%(&D),&E):
P(A%(&D),&C):
P(A%(&D),&A):
P(A%(&D),5):
P(A%(16),5):
P(A%(16),6):
P(A%(16),9)
Z(A%(16),4,Gi%):
P(A%(&D),7)
S(A%(&D),7)
M%,D%:C%(0,0)=Z%(V%)!608:G%(0,0)=Z%(V%)!612:D%=Z%(V%)+632:
2:C%(1,M%)=D%!0:G%(1,M%)=D%!4:D%+=&C:
M%,D%,ky%:Z%(V%)!608=C%(0,M%):Z%(V%)!612=G%(0,M%):D%=Z%(V%)+632:
(Z%(V%)?607)=0
C%(1,0)=-1
!=D%!0=0:D%!4=4:ky%=D%!8:ky%=ky%
16):ky%=ky%
4:D%!8=ky%
2:D%!0=C%(1,M%):D%!4=G%(1,M%):D%+=&C:
k(V%):
A(A%(6),3,
(|(Z%(V%)+584))):
A(A%(6),6,
(|(Z%(V%)+589))):
A(A%(6),&F,
(|(Z%(V%)+594))):
A(A%(6),18,
(|(Z%(V%)+600))):
Z(A%(6),&A,(Z%(V%)?605)
Z(A%(6),22,(Z%(V%)?605)
Z(A%(6),&B,(Z%(V%)?605)
Z(A%(6),23,(Z%(V%)?605)
Z%(V%)?607=1
S(A%(6),26):
A(A%(6),26,
A("PHi")):
Z(A%(6),26,(Z%(V%)!605)
Z%(V%)?607=2
S(A%(6),26):
A(A%(6),26,
A("PRL")):
Z(A%(6),26,(Z%(V%)!605)
&400)
Z(A%(6),26,
P(A%(6),26)
Vi:Z%(V%)!605=(Z%(V%)!605)
(8+16+32+64+512+&400):Z%(V%)?605=(Z%(V%)?605)
S(A%(6),&A)
8):Z%(V%)?605=(Z%(V%)?605)
S(A%(6),22)
16):Z%(V%)?605=(Z%(V%)?605)
S(A%(6),&B)
32):Z%(V%)?605=(Z%(V%)?605)
S(A%(6),23)
Z%(V%)?607=1
,;Z%(V%)?(605+1)=(Z%(V%)?(605+1))
S(A%(6),26)
(512>>8))
Z%(V%)?607=2
.<Z%(V%)?(605+1)=(Z%(V%)?(605+1))
S(A%(6),26)
(&400>>8))
S(A%(6),&B)
1=|(Z%(V%)+584)=
Z(A%(6),3)):|(Z%(V%)+589)=
Z(A%(6),6))
S(A%(6),23)
3?|(Z%(V%)+594)=
Z(A%(6),&F)):|(Z%(V%)+600)=
Z(A%(6),18))
k(V%):
S(A%(5),0)
Z%(V%)?616=(Z%(V%)?616)
Z%(V%)?616=(Z%(V%)?616)
:|(Z%(V%)+620)=
Z(A%(5),1)):|(Z%(V%)+625)=
Z(A%(5),3)):
Ui%=0
A(A%(29),fu%,$((S%!(T%*4))+8))
A(A%(2),fu%,$((S%!(T%*4))+8))
:C%(BJ%,__%)=T%:G%(BJ%,__%)=?((S%!(T%*4))+277):
ky%:ky%=!((Z%(V%)+632)+(__%*&C)+8):ky%=ky%
4):ky%=ky%
S(A%(32),9)
4):ky%=ky%
S(A%(32),5)
8):ky%=ky%
S(A%(32),&C)
16):!((Z%(V%)+632)+(__%*&C)+8)=ky%:
T%=-2
A(A%(2),fu%,
A("FMF")):C%(BJ%,__%)=0:G%(BJ%,__%)=4
A(A%(2),fu%,$((S%!(((T%+1)-1)*4))+8)):C%(BJ%,__%)=T%:G%(BJ%,__%)=?((S%!(((T%+1)-1)*4))+277)
C%(0,0)=-1
A(A%(2),6-1,"")
A(A%(2),6-1,$((S%!(C%(0,0)*4))+8))
C%(1,0)=-1
A(A%(2),8-1,"")
G%(1,0)=4
A(A%(2),8-1,
A("FMF"))
A(A%(2),8-1,$((S%!(C%(1,0)*4))+8))
C%(1,1)=-1
A(A%(2),&C-1,"")
G%(1,1)=4
A(A%(2),&C-1,
A("FMF"))
A(A%(2),&C-1,$((S%!(C%(1,1)*4))+8))
C%(1,2)=-1
A(A%(2),16-1,"")
G%(1,2)=4
A(A%(2),16-1,
A("FMF"))
A(A%(2),16-1,$((S%!(C%(1,2)*4))+8))
t(VJ%)
&406C0:
S$(),Wi%,g%,yy%,U%,C$,S$,t$,Z_%,ml%,r%,K%:
S,W,C,V:
nl%,y`%,O%,XO%:
uy%,M%(),H%(),YJ,TJ,a%,l%,qo%,o%:
`%,C_%,F,N,A():
jy%,A_%,W$,S%(),M$(),d,n,w$,s$,b$:
T,D,Uy%,h%,Sn%,U,A:
A_,P_,D_,r_,c_,c,O_,j_,J_,N_,q_:
WkF%(V%)=F%(V%)
(16+8)):nl%=((Z%(V%)!605)
32)>0:y`%=((Z%(V%)!605)
64)>0:XO%=((Z%(V%)!605)
256)>0:
A("QNR"),"",VJ%):
Z*S=|(Z%(V%)+584):C=|(Z%(V%)+589):
A("XA0"),"",VJ%):
^*W=|(Z%(V%)+594):V=|(Z%(V%)+600):
A("YA0"),"",VJ%):
:Wi%=Z%(V%)!612:g%=Z%(V%)!608:
A("GNX"),"",VJ%):
(!(Z%(V%)+632+8)
(Z%(V%)?607)=0
A("PYF"),"",VJ%):
:yy%=
F(g%):IB%=
((Z%(V%)?616)
Z%(V%)?607=2
hSC$=" dummy":
P%-1:S$=$(
M(U%,_%!(g%*4))+yy%):t$=
G(S$):S$=
S$,30):
S$<>C$
C$=S$:Z_%+=1
S$(Z_%-1):
A("STG"),"",VJ%):
A("STU"),"",VJ%):
2:I`%=
O%:O%=_%!(g%*4):S=|((!((!e%)+(((O%!0)
&FFFF)*4)))+yy%):C=|((!((!e%)+(((O%!((P%-1)*2))
&FFFF)*4)))+yy%)
1:I`%=
O%:O%=_%!(g%*4):S=!((!((!e%)+(((O%!0)
&FFFF)*4)))+yy%):C=!((!((!e%)+(((O%!((P%-1)*2))
&FFFF)*4)))+yy%)
1,"Invalid X field type"
S$(1):ml%=
:S$(0)=$((S%!(g%*4))+294):S$(1)=$((S%!(g%*4))+281):Z_%=2:S=1:C=2
0:yy%=
F(g%):C$=" dummy":
P%-1:S$=$(
M(U%,_%!(g%*4))+yy%):t$=
G(S$):S$=
S$,30):
S$<>C$
C$=S$:Z_%+=1
S$(Z_%-1):
2:I`%=
|oF%=
F(g%):O%=_%!(g%*4):S=|((!((!e%)+(((O%!0)
&FFFF)*4)))+F%):C=|((!((!e%)+(((O%!((P%-1)*2))
&FFFF)*4)))+F%)
:A=|(Z%(V%)+625):U=|(Z%(V%)+620):
zJ(S,C,A,U):
(S+A))<>0
Z_%=(((C+1)-S)/A)+1.5
Z_%=(((C+1)-S)/A)+0.5
S)<>0
Z_%=((C-S)/A)+1
Z_%=(C-S)/A
1:I`%=
F(g%):O%=_%!(g%*4):S=!((!((!e%)+(((O%!0)
&FFFF)*4)))+F%):C=!((!((!e%)+(((O%!((P%-1)*2))
&FFFF)*4)))+F%)
:A=|(Z%(V%)+625):U=|(Z%(V%)+620):
zJ(S,C,A,U):
(S+A))<>0
Z_%=(((C+1)-S)/A)+1.5
Z_%=(((C+1)-S)/A)+0.5
S)<>0
Z_%=(((C+1)-S)/A)+1.5
Z_%=(((C+1)-S)/A)+0.5
A("GNX"),"",VJ%):
M%(2,1):
2:M%(a%,0)=uy%:l%=Z%(V%)+632+(a%*&C):
l%!0<>-1
qo%=l%!8:
F(l%!0):Mn%=l%!0:
0:C$=" dummy":
P%-1:S$=$(
M(U%,_%!(Mn%*4))+o%):t$=
G(S$):S$=
S$,30):
S$<>C$
C$=S$:
w(uy%,C$)
w(uy%,$((S%!((l%!0)*4))+294))
w(uy%,$((S%!((l%!0)*4))+281))
1:`%=
M(0,_%!(Mn%*4))+o%):
P%-1:C_%=!(
M(U%,_%!(Mn%*4))+o%):
C_%<>`%
`%=C_%:
ay(uy%,`%)
M(0,_%!(Mn%*4))+o%):
P%-1:N=|(
M(U%,_%!(Mn%*4))+o%):
ay(uy%,F)
w(uy%,$((S%!(g%*4))+8)+" "+
A("FMF"))
l%!4=0
l%!4=3
A("NTF"),"",VJ%):
l%!4=2
IB%=
w(uy%,$((S%!((l%!0)*4))+8))
:M%(a%,1)=uy%-1:
uy%=0
A("NYD"),"",VJ%):
((Z%(V%)?616)
A(uy%-1,P%-1,1)
A(uy%-1,Z_%-1,1)
H%(uy%-1):
2:l%=Z%(V%)+632+(a%*&C):
l%!0<>-1
F(l%!0):
l%?4=1
#Ly%=&A^(?((S%!((l%?0)*4))+279))
(((Z%(V%)!616)
1)=0)
(((l%!8)
4)=0)
_s%=M%(a%,0):C$=" dummy":
P%-1:S$=$(
M(U%,_%!(g%*4))+yy%):t$=
G(S$):S$=
S$,30):
S$<>C$
f(S$,S$())+1:C$=S$
:A(s%,U%,0)=X%:
l%?4=1
+A(s%,U%,1)=(!(
M(U%,_%!(g%*4))+o%))/Ly%
A(s%,U%,1)=|(
M(U%,_%!(g%*4))+o%)
((l%!8)
s%=M%(a%,0):j%=0:C$=$(
M(0,_%!(g%*4))+yy%):t$=
G(C$):C$=
C$,30):z%=
f(C$,S$()):
P%-1:S$=$(
M(U%,_%!(g%*4))+yy%):t$=
G(S$):S$=
S$,30):
S$<>C$
%Ny%=U%-1:A(s%,z%,0)=z%+1:
l%?4=1
*A(s%,z%,1)=
H(j%,Ny%,_%!(g%*4),o%)/Ly%
A(s%,z%,1)=
V(j%,Ny%,_%!(g%*4),o%)
:j%=U%:C$=S$:z%=
f(C$,S$())
:A(s%,z%,0)=z%+1:
1:A(s%,z%,1)=
H(j%,P%-1,_%!(g%*4),o%)/Ly%
2:A(s%,z%,1)=
V(j%,P%-1,_%!(g%*4),o%)
j%=0:C$=$(
M(0,_%!(g%*4))+yy%):t$=
G(C$):C$=
C$,30):z%=
f(C$,S$()):
P%-1:S$=$(
M(U%,_%!(g%*4))+yy%):t$=
G(S$):S$=
S$,30):
S$<>C$
Ny%=U%-1:
w(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,z%+1)
x(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,z%+1)
e(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,z%+1)
c(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,z%+1)
4:A(M%(a%,0),z%,0)=z%+1:A(M%(a%,0),z%,1)=Ny%-j%+1
:C$=S$:j%=U%:z%=
f(C$,S$())
w(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,z%+1):
d(M%(a%,0),M%(a%,1))
x(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,z%+1)
e(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,z%+1):
d(M%(a%,0),M%(a%,1))
c(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,z%+1)
4:A(M%(a%,0),z%,0)=z%+1:A(M%(a%,0),z%,1)=(P%-1)-j%+1
((l%!8)
Qy(M%(a%,0),M%(a%,1))
((l%!8)
_y(M%(a%,0),M%(a%,1))
2:l%=Z%(V%)+632+(a%*&C):
l%!0<>-1
F(l%!0):
((Z%(V%)!616)
Z%(V%)?607=1
B=A/2
Z%(V%)?607=0
((l%!8)
vj%=0:Ny%=-1:z%=0:C_%=!(
M(0,_%!(g%*4))+yy%):`%=(((C_%-S+A)
A)*A)+S:
P%-1:C_%=!(
M(U%,_%!(g%*4))+yy%):
C_%<`%
Ny%=U%
w(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%-B)
x(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%-B)
e(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%-B)
c(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%-B)
4:A(M%(a%,0),z%,0)=`%-B:A(M%(a%,0),z%,1)=Ny%-j%+1
:z%+=1:j%=U%:Ny%=U%:`%=(((C_%-S+A)
A)*A)+S
Ny%>j%
w(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%-B):
d(M%(a%,0),M%(a%,1))
x(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%-B)
e(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%-B):
d(M%(a%,0),M%(a%,1))
c(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%-B)
4:A(M%(a%,0),z%,0)=`%-B:A(M%(a%,0),z%,1)=(P%-1)-j%+1
((l%!8)
Qy(M%(a%,0),M%(a%,1))
((l%!8)
_y(M%(a%,0),M%(a%,1))
l%?4=1
#Ly%=&A^(?((S%!((l%?0)*4))+279))
:j%=0:Ny%=-1:z%=0:C_%=!(
M(0,_%!(g%*4))+yy%):`%=(((C_%-S+A)
A)*A)+S:s%=M%(a%,0):
P%-1:C_%=!(
M(U%,_%!(g%*4))+yy%):
C_%<`%
Ny%=U%+1
A(s%,z%,0)=`%-B:
l%?4=1
*A(s%,z%,1)=
H(j%,Ny%,_%!(g%*4),o%)/Ly%
A(s%,z%,1)=
V(j%,Ny%,_%!(g%*4),o%)
:z%+=1:j%=U%:Ny%=U%:`%=(((C_%-S+A)
A)*A)+S
(C_%<=`%)
A(s%,z%,0)=`%-A:
l%?4=1
+A(s%,z%,1)=
H(j%,P%-1,_%!(g%*4),o%)/Ly%
A(s%,z%,1)=
V(j%,P%-1,_%!(g%*4),o%)
((l%!8)
_j%=0:Ny%=-1:z%=0:`%=!(
M(0,_%!(g%*4))+yy%):
P%-1:C_%=!(
M(U%,_%!(g%*4))+yy%):
C_%<=`%
Ny%=U%
w(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%)
x(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%)
e(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%)
c(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%)
4:A(M%(a%,0),z%,0)=`%:A(M%(a%,0),z%,1)=Ny%-j%+1
:j%=U%:Ny%=U%:z%+=1:`%=C_%
w(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%):
d(M%(a%,0),M%(a%,1))
x(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%)
e(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%):
d(M%(a%,0),M%(a%,1))
c(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%)
4:A(M%(a%,0),z%,0)=`%:A(M%(a%,0),z%,1)=(P%-1)-j%+1
((l%!8)
Qy(M%(a%,0),M%(a%,1))
((l%!8)
_y(M%(a%,0),M%(a%,1))
s%=M%(a%,0):
l%?4=1
{Ly%=&A^(?((S%!((l%?0)*4))+279)):
P%-1:A(s%,U%,0)=!(
M(U%,_%!(g%*4))+yy%):A(s%,U%,1)=(!(
M(U%,_%!(g%*4))+o%))/Ly%:
P%-1:A(s%,U%,0)=!(
M(U%,_%!(g%*4))+yy%):A(s%,U%,1)=|(
M(U%,_%!(g%*4))+o%):
2:l%=Z%(V%)+632+(a%*&C):
l%!0<>-1
%"o%=
F(l%!0):
((Z%(V%)!616)
Z%(V%)?607=1
Z%(V%)?607=0
B=A/2
((l%!8)
-lj%=0:Ny%=-1:z%=0:N=|(
M(0,_%!(g%*4))+yy%):F=(((N-S+A)
A)*A)+S:
P%-1:N=|(
M(U%,_%!(g%*4))+yy%):
Ny%=U%
w(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,F-B)
x(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,F-B)
e(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,F-B)
c(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,F-B)
4:A(M%(a%,0),z%,0)=F-B:A(M%(a%,0),z%,1)=Ny%-j%+1
:z%+=1:j%=U%:Ny%=U%:F=(((N-S+A)
A)*A)+S
Ny%>=j%
w(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,F-B):
d(M%(a%,0),M%(a%,1))
x(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,F-B)
e(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,F-B):
d(M%(a%,0),M%(a%,1))
c(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,F-B)
4:A(M%(a%,0),z%,0)=F-B:A(M%(a%,0),z%,1)=(P%-1)-j%+1
((l%!8)
Qy(M%(a%,0),M%(a%,1))
((l%!8)
_y(M%(a%,0),M%(a%,1))
l%?4=1
D#Ly%=&A^(?((S%!((l%?0)*4))+279))
:j%=0:Ny%=-1:z%=0:N=|(
M(0,_%!(g%*4))+yy%):F=(((N-S+A)
A)*A)+S:s%=M%(a%,0):
P%-1:N=|(
M(U%,_%!(g%*4))+yy%):
Ny%=U%+1
A(s%,z%,0)=F-B:
l%?4=1
H*A(s%,z%,1)=
H(j%,Ny%,_%!(g%*4),o%)/Ly%
A(s%,z%,1)=
V(j%,Ny%,_%!(g%*4),o%)
:z%+=1:j%=U%:Ny%=U%:F=(((N-S+A)
A)*A)+S
(N<=F)
A(s%,z%,0)=F-A:
l%?4=1
M+A(s%,z%,1)=
H(j%,P%-1,_%!(g%*4),o%)/Ly%
A(s%,z%,1)=
V(j%,P%-1,_%!(g%*4),o%)
((l%!8)
I("Cannot plot ungrouped real number field against frequency","",VJ%):
s%=M%(a%,0):
l%?4=1
UyLy%=&A^(?((S%!((l%?0)*4))+279)):
P%-1:A(s%,U%,0)=|(
M(U%,_%!(g%*4))+yy%):A(s%,U%,1)=!(
M(U%,_%!(g%*4))+o%)/Ly%:
P%-1:A(s%,U%,0)=|(
M(U%,_%!(g%*4))+yy%):A(s%,U%,1)=|(
M(U%,_%!(g%*4))+o%):
2:l%=Z%(V%)+632+(a%*&C):
l%!0<>-1
\"o%=
F(l%!0):
((Z%(V%)!616)
]BU%=0:
M(U%,_%!(g%*4))+yy%)=1
(U%<(P%-1)):U%+=1:
U%=P%-1
M(U%,_%!(g%*4))+yy%)=0
FJ%=P%
FJ%=P%-1
FJ%=U%
((l%!8)
d0A(M%(a%,0),0,0)=1:A(M%(a%,0),1,0)=2:
l%?4=1
e~Ly%=&A^(?((S%!((l%?0)*4))+279)):A(M%(a%,0),0,1)=
H(0,FJ%-1,_%!(g%*4),o%)/Ly%:A(M%(a%,0),1,1)=
H(FJ%,P%-1,_%!(g%*4),o%)/Ly%
A(M%(a%,0),0,1)=
V(0,FJ%-1,_%!(g%*4),o%):A(M%(a%,0),1,1)=
V(FJ%,P%-1,_%!(g%*4),o%)
w(0,FJ%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),0,1):
w(FJ%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),1,2):
d(M%(a%,0),M%(a%,1))
x(0,FJ%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),0,1):
x(FJ%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),1,2)
e(0,FJ%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),0,1):
e(FJ%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),1,2):
d(M%(a%,0),M%(a%,1))
c(0,FJ%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),0,1):
c(FJ%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),0,1)
4:A(M%(a%,0),0,0)=1:A(M%(a%,0),0,1)=FJ%-1:A(M%(a%,0),1,0)=2:A(M%(a%,0),1,1)=P%-FJ%-1
((l%!8)
Qy(M%(a%,0),M%(a%,1))
((l%!8)
_y(M%(a%,0),M%(a%,1))
I("X field switch data must be grouped","",VJ%):
(Z%(V%)?607)<>0
y<W=9E37:V=-9E37:
uy%-1:
(A(),2):
A(s%,z%,1)>V
V=A(s%,z%,1)
A(s%,z%,1)<W
W=A(s%,z%,1)
(W/V)<=0.5
((V/W)<0.2)
M$(uy%-1):
S%(uy%-1,2):
(Z%(V%)?607)=1
(Z%(V%)?607)=0
FB%=0<<30
(Z%(V%)?607)=2
FB%=2<<30
FB%=3<<30
uy%-1:M$(s%)=$((Z%(V%)+684)+(44*s%)+0):S%(s%,0)=(!((Z%(V%)+684)+(44*s%)+40))
FB%:S%(s%,1)=!((Z%(V%)+684)+(44*s%)+32):S%(s%,2)=!((Z%(V%)+684)+(44*s%)+36):
:Z%(V%)!668=uy%:jy%=Z%(V%)+(Z%(V%)!4):A_%+=(((Z%(V%)?605)
&80)>0)
(1*4):A_%+=ml%
((Z%(V%)?607)=1)
A_%+=1<<1
y_(V%)
:W$=$(Z%(V%)+8):w$=$(Z%(V%)+520):s$=$(Z%(V%)+552):b$=$(Z%(V%)+264):
((Z%(V%)?605)
((Z%(V%)?607)=1)
((Z%(V%)!616)
S-=1:
((Z%(V%)?605)
16)>0
:P_%=Z%(V%)!672:Q_%=Z%(V%)!676:A_%+=(IB%
Iu(jy%,A_%,W$,w$,s$,b$,S,W,C,V,d,n,M$(),S%(),S$(),P_%,Q_%,T,D,Uy%,h%,Sn%,U,A):
#|(Z%(V%)+584)=S:|(Z%(V%)+589)=C
#|(Z%(V%)+594)=W:|(Z%(V%)+600)=V
(Z%(V%)?607)
((Z%(V%)!616)
GO%=_%!(g%*4):
uy%-1:w=A(s%,0,0):
(A(),2):
A(s%,z%,0)>=w
Cw=A(s%,z%,0):Hy=A(s%,z%,0):Vy=A(s%,z%,0)+A:
((Z%(V%)!605)
Wi%=1
Hy<(!((!((!e%)+(((O%!0)
&FFFF)*4)))+F%))
,Hy=(!((!((!e%)+(((O%!0)
&FFFF)*4)))+F%))
Vy>(!((!((!e%)+(((O%!((P%-1)*2))
&FFFF)*4)))+F%))
5Vy=(!((!((!e%)+(((O%!((P%-1)*2))
&FFFF)*4)))+F%))
Wi%=2
Hy<(!((!((!e%)+(((O%!0)
&FFFF)*4)))+F%))
,Hy=(|((!((!e%)+(((O%!0)
&FFFF)*4)))+F%))
Vy>(!((!((!e%)+(((O%!((P%-1)*2))
&FFFF)*4)))+F%))
5Vy=(|((!((!e%)+(((O%!((P%-1)*2))
&FFFF)*4)))+F%))
:k_=A/(Vy-Hy)
f_(jy%,Uy%,h%,T,D,Hy,0,Vy,A(s%,z%,1)*k_,S%(s%,0),S%(s%,1),S%(s%,2))
uy%-1:w=A(s%,0,0):
(A(),2):
A(s%,z%,0)>=w
nw=A(s%,z%,0):
f_(jy%,Uy%,h%,T,D,A(s%,z%,0)-(A/2),0,A(s%,z%,0)+(A/2),A(s%,z%,1),S%(s%,0),S%(s%,1),S%(s%,2))
uy%-1:w=A(s%,0,0):
(A(),2):
A(s%,z%,0)>=w
Yw=A(s%,z%,0):
gJ(jy%,Uy%,h%,T,D,A(s%,z%,0),A(s%,z%,1),S%(s%,0)
&FF,S%(s%,1),S%(s%,2))
uy%-1:G%=
B(My%,S%(s%,1),-1,0,0,0):
K(0,G%,(A(s%,0,0)*T)+Uy%,(A(s%,0,1)*D)+h%):w=A(s%,0,0):
(A(),2):
A(s%,z%,0)>=w
>w=A(s%,z%,0):
W(0,G%,(A(s%,z%,0)*T)+Uy%,(A(s%,z%,1)*D)+h%)
R(0,G%):
uy%-1:w=A(s%,0,0):O_=0:j_=0:c_=0:J_=0:c=0:
(A(),2):
A(s%,z%,0)>=w
w=A(s%,z%,0):c+=1:O_+=A(s%,z%,0):j_+=A(s%,z%,1):c_+=A(s%,z%,0)*A(s%,z%,1):J_+=A(s%,z%,0)^2:
gJ(jy%,Uy%,h%,T,D,A(s%,z%,0),A(s%,z%,1),S%(s%,0)
&FF,S%(s%,1),S%(s%,2))
((Z%(V%)!605)
&400)
A_=O_/c:P_=j_/c:r_=c_-(c*A_*P_):D_=J_-(c*(A_^2)):N_=P_-((r_/D_)*A_):q_=(r_/D_):G%=
B(My%,S%(s%,1),-1,0,0,0):
K(0,G%,(A(s%,0,0)*T)+Uy%,(((A(s%,0,0)*q_)+N_)*D)+h%):
W(0,G%,(C*T)+Uy%,(((C*q_)+N_)*D)+h%):
R(0,G%)
(A(),1)>31
(31+1):
A("GTS"),"",VJ%)
Wi%=1
Wi%=2
3Z_%=0:w=A(0,0,0):
Ay%=1
(A(),2):
A(0,Ay%,0)>w
Z_%+=1
M$(Z_%):
S%(Z_%,2):
((Z%(V%)?616)
Ay%=0
Z_%:M$(Ay%)=
(A(0,Ay%,0)):S%(Ay%,0)=0:S%(Ay%,1)=!((Z%(V%)+684)+(44*Ay%)+32):S%(Ay%,2)=!((Z%(V%)+684)+(44*Ay%)+36):
Ay%=0
Ay%=0
M$(Ay%)="<="+
(A(0,Ay%,0))
M$(Ay%)=
(A(0,Ay%-1,0))+"-"+
(A(0,Ay%,0))
:S%(Ay%,0)=0:S%(Ay%,1)=!((Z%(V%)+684)+(44*Ay%)+32):S%(Ay%,2)=!((Z%(V%)+684)+(44*Ay%)+36):
S$(M%(0,1)+1)
M$(M%(0,1)+1):
(S$(),1),2):
M$(),S$():
Ay%=0
(M$(),1):S%(Ay%,0)=0:S%(Ay%,1)=!((Z%(V%)+684)+(44*Ay%)+32):S%(Ay%,2)=!((Z%(V%)+684)+(44*Ay%)+36):
M%(0,1):S$(s%)=$((Z%(V%)+684)+(44*s%)+0):
(M$(),1):$((Z%(V%)+684)+(44*s%)+0)=M$(s%):
:Z%(V%)!668=
(M$(),1)+1:
y_(V%)
:W$=$(Z%(V%)+8):b$=$(Z%(V%)+264):P_%=Z%(V%)!672:Q_%=Z%(V%)!676:
((l%!8)
vy=&64
vy=P%
:jy%=Z%(V%)+(Z%(V%)!4):A_%+=(((Z%(V%)?605)
&80)>0)
(1*4):
wa(jy%,A_%,W$,A_$,P_%,Q_%,A(),M$(),S%(),S$(),vy,M%(0,1))
:Z%(V%)!4=jy%-Z%(V%):Z%(V%)!0=Ry%-Z%(V%):F%(V%)=F%(V%)
16:xJ%=Ry%:
&400D1,J%(V%),0,-&FFFFFF,&FFFFFF,0:
&406C1:
I(e$,oy$,VJ%)F$(V%)=e$:j$=oy$:
&400D1,J%(V%),0,-&FFFFFF,&FFFFFF,0:
&406C1:
Qy(Fl%,za%)
s%,z%,_:
s%=Fl%
za%:_=0:
(A(),2):_+=A(s%,z%,1):
(A(),2):A(s%,z%,1)=(A(s%,z%,1)/_)*&64:
_y(Fl%,za%)
s%,z%:
s%=Fl%
(A(),2):A(s%,z%,1)+=A(s%,z%-1,1):
y_(u%)
ku%,w$,s$,r%,JB%,Ne%,Au%,ha%,gi%,_k%,W$,b$:
Z%(u%)?607
0:W$=
A("PCt")
((Z%(u%)!605)
A("His")
A("Bar")
3:W$=
A("LGr")
2:W$=
A("ScG")
:ku%=Z%(u%)!608:w$=$((S%!(ku%*4))+8):
Z%(u%)!612=1
$((S%!(ku%*4))+301)<>""
$((S%!(ku%*4))+301))<>"/"
w$+=" /"+$((S%!(ku%*4))+301)
w$+=" "+$((S%!(ku%*4))+301)
Z%(u%)!612=2
$((S%!(ku%*4))+303)<>""
$((S%!(ku%*4))+303))<>"/"
w$+=" /"+$((S%!(ku%*4))+303)
w$+=" "+$((S%!(ku%*4))+303)
2:ha%=Z%(u%)+632+(&C*r%):
ha%!0>=0
*Au%+=1:gi%=ha%!0:_k%=ha%?4:
(ha%!8)
JB%+=1:
(ha%!8)
Ne%+=1
Au%=1
_k%<>4
s$=$((S%!(gi%*4))+8):
JB%=0
?((S%!(gi%*4))+277)
$((S%!(gi%*4))+301)<>""
s$+=" /"+$((S%!(gi%*4))+301)
$((S%!(gi%*4))+303)<>""
s$+=" /"+$((S%!(gi%*4))+303)
JB%=Au%
Ne%=JB%
s$+=" % frequency"
s$+=" frequency"
:$(Z%(u%)+520)=w$:$(Z%(u%)+552)=s$:$(Z%(u%)+8)=W$:
ju(U$)
(F%(g_%)
16)=0
A("GNU")
u%=g_%:
&406C0:
("Remove "+U$):
A("SaC")
("Save "+U$+" "+
~((Z%(u%)!4)+Z%(u%))+" "+
~(Z%(u%)+(Z%(u%)!0))):
8,18,U$,&AFF:
&406C1
H(j%,Ny%,O%,F%)
U%,_:
Ny%>j%
U%=j%
Ny%:_+=!(
M(U%,O%)+F%):
:=_/((Ny%-j%)+1)
M(j%,O%)+F%)
V(j%,Ny%,O%,F%)
U%,_:
Ny%>j%
U%=j%
Ny%:_+=|(
M(U%,O%)+F%):
:=_/((Ny%-j%)+1)
M(j%,O%)+F%)
w(j%,Ny%,O%,F%,Rl%,kJ%,z%,Iy)
U%,`%,s%:
U%=j%
Ny%:`%=!(
M(U%,O%)+F%):
s%=Rl%
|((Z%(V%)+684)+(44*s%))=`%
A(s%,z%,1)+=1
s%=Rl%
kJ%:A(s%,z%,0)=Iy:
e(j%,Ny%,O%,F%,Rl%,kJ%,z%,Iy)
U%,F,s%:
U%=j%
Ny%:F=|(
M(U%,O%)+F%):
s%=Rl%
|((Z%(V%)+684)+(44*s%))=F
A(s%,z%,1)+=1
s%=Rl%
kJ%:A(s%,z%,0)=Iy:
d(Rl%,kJ%)
s%=Rl%
kJ%:$((Z%(V%)+684)+(44*s%))=
(|((Z%(V%)+684)+(44*s%))):
x(j%,Ny%,O%,F%,Rl%,kJ%,z%,Iy)
U%,M$,s%,t$:
U%=j%
Ny%:M$=$(
M(U%,O%)+F%):t$=
G(M$):M$=
M$,30):
s%=Rl%
$((Z%(V%)+684)+(44*s%))=M$
A(s%,z%,1)+=1
s%=Rl%
kJ%:A(s%,z%,0)=Iy:
c(j%,Ny%,O%,F%,Rl%,kJ%,z%,Iy)
U%,s%:
U%=j%
M(U%,O%)+F%)
A(Rl%,z%,1)+=1
A(kJ%,z%,1)+=1
:A(Rl%,z%,0)=Iy:A(kJ%,z%,0)=Iy:
A=(C-S)/&F:
A>0.5
(A+0.5)
d(A):A=
(A/l)*l
My(S,U,A):C=
W_(C,U,A):
uy%,c$)
uy%>31
7'J$=
(31+1):
A("GTS"),"",VJ%):=-1
:$((Z%(V%)+684)+(44*uy%))=c$:uy%+=1:=0
uy%,F)
uy%>31
:'J$=
(31+1):
A("GTS"),"",VJ%):=-1
:|((Z%(V%)+684)+(44*uy%))=F:uy%+=1:=0
iJ:C$=" dummy":Z_%=0:
P%-1:S$=$(
M(U%,!b%)+yy%):t$=
G(S$):S$=
S$,30):r%=0:K%=
(r%<Z_%)
S$=S$(r%)
:r%+=1:
S$(Z_%)=S$:Z_%+=1
:ml%=
:S=1:C=Z_%:
f(F$,S$())
S$(r%)<>F$:r%+=1:
C%(0,0)=-1
A(A%(29),6-1,"")
A(A%(29),6-1,$((S%!(C%(0,0)*4))+8))
C%(1,0)<0
G%(1,0)=4
A(A%(29),8-1,"")
A(A%(29),8-1,$((S%!(C%(1,0)*4))+8))
A(A%(4),4,$(Z%(V%)+8)):
A(A%(4),5,$(Z%(V%)+264)):
A(A%(4),6,$(Z%(V%)+520)):
A(A%(4),7,$(Z%(V%)+552)):
Z(A%(4),&A,(Z%(V%)!605)
256):
Bi$(Z%(V%)+8)=
Z(A%(4),4):$(Z%(V%)+264)=
Z(A%(4),5):$(Z%(V%)+520)=
Z(A%(4),6):$(Z%(V%)+552)=
Z(A%(4),7):Z%(V%)!605=((Z%(V%)!605)
256))
S(A%(4),&A)):Z%(V%)!605=(Z%(V%)!605)
fJ(V%):
k(V%):
Yi:Z%(V%)!605=((Z%(V%)!605)
&80))
S(A%(34),2)):J%!0=A%(35):
Ay%=0
Z%(V%)!668:J%!4=(Ay%*7)+1:
&400CE,,J%:!(Z%(V%)+684+(44*Ay%)+36)=J%!28:J%!4=(Ay%*7)+3:
&400CE,,J%:!(Z%(V%)+684+(44*Ay%)+32)=J%!28:J%!4=(Ay%*7)+5:
&400CE,,J%
L4!(Z%(V%)+684+(44*Ay%)+40)=J%!28:
k(V%):
Q(A%(&D),I$+" *")
Q(A%(&D),I$)
fJ(u%)
$(Z%(u%)+8)<>""
S W$=
A("GTi")+" "+$(Z%(u%)+8)
(u%):W$=
A("GTi")+" "+
A("UnT")
(F%(p%)
W$+=" *"
Q(J%(u%),W$):
Q(A%(7),
A("NFY")
A("NDa")
A("NOR")+
(P%):W$+=" "+
A("Sub")+Fy$+" ":
_,W$+=" "+
A("ASr")+": "+$((S%!(Sl%*4))+8)
W$+=" "+
A("Sor")+": "+$((S%!(Sl%*4))+8)
(l_%?2)<>&FF
W$+="+"
W$+=" "+
A("UnS")
A(p%,Jy%,B$)!J%=p%:J%!4=Jy%:
&400CE,,J%:$(J%!28)=
B$,(J%!36)-1):J%!8=0:J%!&C=0:
&400CD,,J%:
Oy(p%,Jy%,c$)!J%=p%:J%!4=Jy%:
&400CE,,J%:$(J%!28)=c$:J%!32=j_%:J%!36=
(c$):
&400C4,,J%:J%!4=p%:
&400C2,Jy%,J%+4:J%!4=Jy%:J%!8=0:J%!&C=0:
&400CD,,J%:
Z(p%,Jy%)!J%=p%:J%!4=Jy%:
&400CE,,J%:=$(J%!28)
Z(p%,Jy%,pB%)J%!0=p%:J%!4=Jy%:J%!8=(pB%<>0)
(1<<21):J%!&C=1<<21:
&400CD,,J%:
_(D$,MO%)
dy%,zy$,I%,uJ%,xu%:MO%=&E:
dy%<>256
yy(dy%)
A("SyF")
&40081,,D$,MO%*16,MO%*16,0,0
&40084,dy%
,,,ZO%:zy$="0123456789-.":dl%=0:
(zy$):
&4008E,dy%,
zy$,I%,1)),16
,uJ%,,xu%:
xu%-uJ%>dl%
dl%=xu%-uJ%
ZO%=16:dl%=16
:va%?dy%+=1:=dy%
yy(dy%)
&40082,dy%:va%?dy%-=1:
ay%,pJ%:
ay%=0
va%?ay%>0
pJ%=1
va%?ay%:
&40082,ay%:
ay%,pJ%:
yy(X_%):X_%=
_(N$,&E):
T(A%(7),w_%,N$,yB%,19):
T(A%(7),bJ%,N$,X_%,23):
T(A%(7),iy%,N$,X_%,23):
T(A%(7),ry%,N$,X_%,7):
T(A%(7),qy%+4,N$,X_%,&D):
z!S_%=
h_:=S_%+
Ay,"A"))+34
:=Qy%
R(F$)
X_%<>256
&400A1,X_%,F$,1<<8,&7FFFFFFF,&7FFFFFFF
,,,Qy%:
&40088,,Qy%,0
(F$)*ZO%
:=Qy%
nu(p%,Jy%,To%)J%!0=p%:J%!4=Jy%:J%!8=(To%<<24)+(1<<6):J%!&C=(&FF<<24)+(1<<6):
&400CD,,J%:
Hu(p%,Jy%,ZZ%)J%!0=p%:J%!4=Jy%:J%!8=(ZZ%<<24):J%!&C=(&FF<<24)+(1<<6):
&400CD,,J%:
P(p%,Jy%)J%!0=p%:J%!4=Jy%:J%!8=1<<22:J%!&C=1<<22:
&400CD,,J%:
S(p%,Jy%)J%!0=p%:J%!4=Jy%:J%!8=0:J%!&C=1<<22:
&400CD,,J%:
S(p%,Jy%)!J%=p%:J%!4=Jy%:
&400CE,,J%:=(J%!24
(1<<21))<>0
L_%:L_%=
("<DataBase$Dir>.Preference"):
L_%<>0
WGi%=(
#L_%)<>0:Hi%=(
#L_%)<>0:sa%=(
#L_%)<>0:xa%=(
#L_%)<>0:a$=
#L_%:N$=
#L_%:
:sa%=
:xa%=
:Hi%=
A("GraphFont"):N$=
A("CardFont")
z_:X_%=
_(N$,&E):
T(A%(7),w_%,N$,yB%,19):
T(A%(7),bJ%,N$,X_%,23):
T(A%(7),iy%,N$,X_%,23):
T(A%(7),ry%,N$,X_%,7):
T(A%(7),qy%+4,N$,X_%,&D):
L_%:L_%=
("<DataBase$Dir>.Preference"):
#L_%,Gi%:
#L_%,Hi%:
#L_%,sa%:
#L_%,xa%:
#L_%,a$:
#L_%,N$:
#L_%:
QJ:Gi%=
S(A%(19),0):Hi%=
S(A%(19),1):sa%=
S(A%(19),2):xa%=
S(A%(19),3):a$=dy$:N$=Oy$:X_%=
_(N$,&E):
T(A%(7),w_%,N$,yB%,19):
T(A%(7),bJ%,N$,X_%,23):
T(A%(7),iy%,N$,X_%,23):
T(A%(7),ry%,N$,X_%,7):
T(A%(7),qy%+4,N$,X_%,&D):Vu%=
&400D1,A%(7),0,-&FFFFFFF,&FFFF,0:
sy(D$,
dy%<>256
yy(dy%)
A("SyF")
%dy%=
_(D$,&C):
nu(A%(19),Jy%,dy%)
dy%=256:
Hu(A%(19),Jy%,23)
A(A%(19),Jy%,
n_(D$)):
T(p%,J%,D$,
dy%,vO%)
A("SyF")
Hdy%=
_(D$,&E):J%!16=(J%!16)
(1<<6):J%!16=((J%!16)
&FFFFFF)
(dy%<<24)
dy%=256:J%!16=(J%!16)
(1<<6)):J%!16=((J%!16)
&FFFFFF)
(vO%<<24)
sy(N$,Y_,Vr%):
sy(a$,v_,Ak%):
Z(A%(19),0,Gi%):
Z(A%(19),1,Hi%):
Z(A%(19),2,sa%):
Z(A%(19),3,xa%):Oy$=N$:dy$=a$:
Da(p%,d$,eJ%)
((Z%!8)
(64+16))
#k`%=p%:wl%=eJ%:
vl(p%,Z%!16,d$)
Z%!16
bJ(p%,eJ%)
&400D4,,-1:
J(A%(p%))
bJ(p%,eJ%)U$=
Z(A%(p%),1):
U$,".")
wl%=eJ%:
v_(p%,U$)
!L%=A%(p%):
&400CB,,L%:
&400D4,,-1:
&400C5,,L%:
A("TSa")
vl(p%,Jy%,G$)
Uy%,h%:Z%!0=A%(p%):
&400CB,,Z%:Uy%=Z%!4-Z%!20:h%=Z%!16-Z%!24:J%!0=A%(p%):J%!4=Jy%:
&400CE,,J%:J%!8+=Uy%:J%!&C+=h%:J%!16+=Uy%:J%!20+=h%:
&42400,&C5,1,G$,J%+8:
G(jl%,Z%!0-64,96+(44*4))
a(A%(7)):
a(A%(16)):
a(A%(&D))
s(b`%)
b`%<>Da%
Da%=b`%:
uy$="*"
Z(A%(22),18):
Q(A%(22),
A("EdS")+" "+uy$)
Jn%,Lo%,ea%,f%,XJ%,OO%,Gn%:
(((Z%!4)+5)
2Gn%=0:XJ%=0:Lo%=(Z%!4)
Z(A%(26),Z%!4)="0"
A(A%(26),Z%!4,"1")
:Jn%=
Z(A%(26),Z%!4)):
Jn%=0
Jn%=1
Jn%>R%
A(A%(26),Z%!4,
(R%)):Jn%=R%
XJ%=1
R%:f%=0:
ea%=0
R%-1:
Z(A%(26),(ea%*6)+1))=XJ%
f%+=1
Gn%=XJ%
OO%=XJ%
Gn%<OO%
q%=-1
ea%=0
R%-1:
XJ%=Gn%
q%*-1:
Z(A%(26),(ea%*6)+1))=XJ%)
(ea%<>Lo%)
A(A%(26),(ea%*6)+1,
(XJ%+q%))
b`%,Jy%,M%:Jy%=((Z%!16)+1)
6:M%=((Z%!16)+1)
):b`%=
S(A%(26),Z%!16)
Z(A%(26),Z%!16,b`%)
Z(A%(26),Z%!16,
Z(A%(26),(Z%!16)+1,
Z(A%(26),Z%!16,
Z(A%(26),(Z%!16)-1,
M_$,Jy%,ko%:
Z%!16
J(A%(22)):
J(A%(26))
21:ko%=Z%!8:
X_(Ll%):
ko%=4
J(A%(22)):
J(A%(26))
Z%!8=4
J(A%(22)):
J(A%(26))
Jy%=1
A(A%(26),(Jy%*6)-1,""):
Z(A%(26),(Jy%*6)-4,
Z(A%(26),(Jy%*6)-3,
Z(A%(26),(Jy%*6)-2,
A(A%(26),(Jy%*6)-5,
(Jy%)):
20:FO%=22:
gy,Z%!0,Z%!4)
Z%!16>=0
Z%!16<=&B
A("Op"+
((Z%!16)-0)))
Pl(m$)
F$,S`%:
&400D3,,Z%:
Z%!0=A%(26)
(((Z%!4)+1)
Z(A%(26),Z%!4):
A(A%(26),Z%!4,
F$,Z%!20)+m$+
F$,(Z%!20)+1),S`%)):
&400D2,A%(26),Z%!4,,,-1,(Z%!20)+
(m$)-S`%:
c_(F$,
pi%:pi%=1:S`%=0:
F$," ",pi%):
pi%>0
F$,pi%)+
F$,pi%+2):S`%+=1
pi%=0
>&64:
F$,1)=" "
F$,2):S`%+=1
Z%!16=&A
s_(A%(&F)):Fa%=A%(24)
Z%!16<>-1
Z(A%(25),4,1):
Z%!16
J(By%):s_%=-1
1:du%=By%:
Y(-1,0),Z%!0,Z%!4)
s_(A%(&F)):Fa%=By%
vJ(s_%)
vJ(M%)ny%=M%:
CJ:L%!0=A%(24):
&400CB,,L%:
N(A%(25),L%!4,L%!16-Ri%,-1):
Q(A%(24),
A("Fil")+" "+$((S%!(ny%*4))+8)):
?((S%!(ny%*4))+277)=2
7n_=1:
Z(A%(25),4,
P(A%(25),4):
A(A%(25),5,
(Xy))
n_=5:Ly%=&A^(?((S%!(ny%*4))+279)):
Z(A%(25),4,
S(A%(25),4):
A(A%(25),5,
(Xy/Ly%))
A(A%(25),8,
(n_)):
F%:F%=
F(ny%):
?((S%!(ny%*4))+277)=2
:Py=|(
M(P%-1,_%!(ny%*4))+F%):Xy=|(
M(0,_%!(ny%*4))+F%)
Py=!(
M(P%-1,_%!(ny%*4))+F%):Xy=!(
M(0,_%!(ny%*4))+F%)
Ly%,b_:Xn%=
?((S%!(ny%*4))+277)=1
_Ly%=&A^(?((S%!(ny%*4))+279)):A=
Z(A%(25),8))*Ly%)+0.5):b_=
Z(A%(25),5))*Ly%)+0.5)
Z(A%(25),8)):b_=
Z(A%(25),5))
i_(Xy,b_,A)
?((S%!(ny%*4))+277)=1
A=&A^(?((S%!(ny%*4))+279))
ll%,gu%,ai%,A,U:ai%=Ri%:ll%=
S(A%(25),4):U=
(1+((Py-U+A-1)/A))<&7FFFFFFF
4gu%=1+((Py-U+A-1)/A):ai%+=gu%*40:
_(A%(24),-ai%)
:L%!0=A%(24):
&400CB,,L%:L%!28=A%(25):
&400C5,,L%:
&400D1,A%(24),0,-&FFFFFFF,&FFFF,0:
Z%!16
A%(24):
J(A%(&F))
`%,gu%,lJ%:
Z%!16
Z(A%(M),18))>Qi%
Z(A%(M),18))<1
A("PIR")
Z(A%(M),20))>Pi%
Z(A%(M),20))<1
A("PIC")
Z(A%(M),2))=0
A("NoC")
J(A%(M)):
&400D4,,-1
S(A%(M),24)
J(A%(M)):
&400D4,,-1
Z(A%(M),4,
Z(A%(M),5,
U(A%(M),2,1,99,1)
U(A%(M),2,-1,99,1)
U(A%(M),18,1,Qi%,1)
U(A%(M),18,-1,Qi%,1)
U(A%(M),20,1,Pi%,1)
U(A%(M),20,-1,Pi%,1)
A(A%(M),20,
(Pi%)):
A(A%(M),18,
(Qi%))
U(A%(M),32,1,999,1)
U(A%(M),32,-1,999,1)
Z%!16>=38
Z%!16<=41
A(A%(M),32,
Z(A%(M),Z%!16))
U(p%,Jy%,vi%,Ty%,Zo%)
`%:`%=
Z(p%,Jy%))+vi%:
`%>=Zo%
`%<=Ty%
A(p%,Jy%,
(`%))
`%>=Ty%
A(p%,Jy%,
(Ty%))
A(p%,Jy%,
(Zo%))
jl:Z%!0=56:Z%!&C=0:Z%!16=&80142:Z%!36=&400:Z%!40=&FFF:$(Z%+44)="TextPrint"+
&400E7,18,Z%,0:sJ%=Z%!8:lB%=sJ%:
Ha:Z%!0=56:Z%!&C=0:Z%!16=&80142:Z%!36=&400:Z%!40=&AFF:$(Z%+44)="GraphPrint"+
&400E7,18,Z%,0:sJ%=Z%!8:an%=sJ%:
Bu:Z%!0=56:Z%!&C=0:Z%!16=&80142:Z%!36=&400:Z%!40=&FFF:$(Z%+44)="FreqPrint"+
&400E7,18,Z%,0:sJ%=Z%!8:sO%=sJ%:
_i:Z%!0=56:Z%!&C=0:Z%!16=&80142:Z%!36=&400:Z%!40=&FFF:$(Z%+44)="StatsPrint"+
&400E7,18,Z%,0:sJ%=Z%!8:jB%=sJ%:
Ou(sJ%)
sJ%=an%
BJ(g_%,"Printer:",0,1):Z%!&C=Z%!8:Z%!16=&80146:
&400E7,17,Z%,Z%!4
bl(sJ%)
lB%:Vy%=
($(Z%+44)):
Vy%=0
fy,$(Z%+44)+
A("COF")
fu(Vy%):
#Vy%:Z%!&C=Z%!8:Z%!16=3:
&400E7,17,Z%,Z%!4
-1:Vy%=
($(Z%+44)):
Vy%=0
fy,$(Z%+44)+
A("COF")
Nl(Vy%):
#Vy%:Z%!&C=Z%!8:Z%!16=3:
&400E7,17,Z%,Z%!4
jB%:Vy%=
($(Z%+44)):
Vy%=0
fy,$(Z%+44)+
A("COF")
`J(Vy%):
#Vy%:Z%!&C=Z%!8:Z%!16=3:
&400E7,17,Z%,Z%!4
sO%:Vy%=
($(Z%+44)):
Vy%=0
fy,$(Z%+44)+
A("COF")
Ma(Vy%):
#Vy%:Z%!&C=Z%!8:Z%!16=3:
&400E7,17,Z%,Z%!4
BJ(g_%,$(Z%+44),0,1):Z%!&C=Z%!8:Z%!16=3:Z%!40=&FF4:
&400E7,17,Z%,Z%!4
za(Vy%)
#Vy%,
A("DNL")+
Z(A%(&D),3)+" "+g$:
#Vy%,
#Vy%,
(27)+
(&88)+
Tl%*lJ%,"*")+Iy$:
g_(d%)
A("DNL")+
Z(A%(&D),3)+" "+g$:
#d%,"Value"+
9," ")+"Frequency"+
2," ")+"% Frequency"+
9," ")+"Cumulative f":
(27)+
(&88)+
50," ")+Iy$:DO%=3:
`J(Vy%)
#Vy%,
A("DNL")+
Z(A%(&D),3)+" "+g$:
#Vy%,"":Ro%=?((S%!(s_%*4))+277):
#Vy%,"Total number of records: "+
(P%):
#Vy%,"Field name: "+$((S%!(s_%*4))+8);:
#Vy%,
A("Num"):
#Vy%,
A("Ran")+
Z(By%,5):
#Vy%,
A("Mea")+
Z(By%,&C):
#Vy%,
A("Med")+
Z(By%,&D):
#Vy%,
A("Mod")+
Z(By%,&E):
#Vy%,
A("LoQ")+
Z(By%,7):
#Vy%,
A("UpQ")+
Z(By%,16):
#Vy%,
A("IQR")+
Z(By%,&B)
#Vy%,
A("Swi"):
#Vy%,
Z(By%,4)+": "+
Z(By%,5):
#Vy%,
Z(By%,6)+": "+
Z(By%,7)
#Vy%,&C:
Ma(Vy%)
R_%,w%,ll%,U,J,fy%,`y%,Lk%,d_%,DO%,R$:
A("WiV"))
:ll%=
S(A%(25),4):U=
u:R_%=_%!(ny%*4):w%=
F(ny%):fy%=0:Lk%=((Py-U+A-1)/A):J=U:
?((S%!(ny%*4))+277)=2
x(R_%,w%,J-A,0,P%-1)
z(R_%,w%,J-A,0,P%-1)
g_(Vy%):
d_%=0
DO%=mO%
#Vy%,&C:
g_(Vy%)
48," "):
R$)=">="+
(J-A)+" <="+
R$,&F)=
(P%-1-`y%):
R$,26)=
(((P%-1-`y%)/P%)*&64):
R$,46)=
?((S%!(ny%*4))+277)=2
x(R_%,w%,J,`y%,P%-1)
z(R_%,w%,J,`y%,P%-1)
R$)=">="+
(J-A)+" <"+
(fy%-`y%)
R$,&F)=
(fy%-`y%):
R$,26)=
(((fy%-`y%)/P%)*&64):
R$,42)=
(fy%+1)
R$,&F)="-":
R$,26)="-":
R$,46)=
(fy%+1)
:`y%=fy%
s(R_%,w%,J,fy%,P%-1):
ec`y%=
o(R_%,w%,J,fy%,P%-1):
R$,&F)=
(fy%-`y%+1):
R$,26)=
(((fy%-`y%+1)/P%)*&64):
R$,46)=
(fy%+1)
R$,&F)="-":
R$,26)="-":
R$,46)=
(fy%+1)
#Vy%,R$:J+=A:DO%+=1:
#Vy%,&C:
Nl(Vy%)
fu(Vy%)
n%,m%,Hn%,gu%,lJ%:
iu(Vy%,gu%,lJ%)
il(Vy%)
il(Vy%)
L%():
L%(R%):ur%=n%:_e%=L%(R%)
Hn%=0
v_(Py%)
((?Py%)<>0)
(P$)<256):P$+=
(?Py%):Py%+=1:
ul(U$)
U%,M%,SJ%:
&406C0:d%=
(U$):
("Remove "+U$):
A("SaC")
A("RcL");:
R%-1:
#d%,","+$((S%!(M%*4))+8);:
#d%,"":
P%-1:
(U%+1);:
R%-1:hy%=
M(U%,!b%)+
F(M%):
?((S%!(M%*4))+277)
#d%,","""+($hy%)+"""";
1:SJ%=&A^?((S%!(M%*4))+279):
#d%,","+
((!hy%)/SJ%);
#d%,","+
(|hy%);
?hy%<>0
#d%,","""+$((S%!(M%*4))+294)+"""";
#d%,","""+$((S%!(M%*4))+281)+"""";
#d%,"":
8,18,U$,&DFE:
&406C1:
hl(U$)
U%,M%,T$,cy$,M$,Fy%,SJ%,P`%:
&406C0:d%=
(U$):
("Remove "+U$):
A("SaC")
A("DNL")+
Z(A%(&D),3)+" "+g$:
P%-1:
#d%,"":Fy%=
M(U%,!b%):
R%-1:T$=
3," "):
(U%+1)
:cy$=
&C," "):
cy$)=$((S%!(M%*4))+8):hy%=Fy%+
F(M%):
?((S%!(M%*4))+277)
0:M$=($hy%)
1:SJ%=&A^?((S%!(M%*4))+279):P`%=@%:
ny(M%):
(?((S%!(M%*4))+278)
>M$=$((S%!(M%*4))+289)+
((!hy%)/SJ%)+" "+$((S%!(M%*4))+301)
((!hy%)/SJ%)
:@%=P`%
(?((S%!(M%*4))+278)
:M$=($((S%!(M%*4))+291))+
(|hy%)+" "+$((S%!(M%*4))+303)
(|hy%)
?hy%<>0
M$=$((S%!(M%*4))+294)
M$=$((S%!(M%*4))+281)
#d%,T$+cy$+M$:
8,18,U$,&FFF:
&406C1:
_a(U$)
U%,M%,T$,cy$,M$,Fy%,SJ%,P`%:
&406C0:d%=
(U$):
("Remove "+U$):
A("SaC")
#d%,"{"+
(&A)+"define style ""Database Ruler"";"+
(&A)+" leftmargin 113.4pt;"+
(&A)+" rightmargin 0pt;"+
(&A)+" returnmargin 0pt;":
#d%," autoparagraph;"+
(&A)+" tabs 28.3pt,113.4pt,216pt,288pt,360pt,432pt,504pt,576pt;"+
(&A)+" menuitem on}";
#d%,"{fontsize 14pt}"+g$+"{fontsize}":
#d%,"{""Main Heading"" on}"+
Z(A%(&D),3)+"{""Main Heading"" off}":
v+"{""Database Ruler"" on}";:
P%-1:
#d%,"":Fy%=
M(U%,!b%):
R%-1:
#d%,"{italic on}{bold on}"+
(U%+1)+"{tab}{italic}";
#d%,"{tab}{bold on}";
:hy%=Fy%+
F(M%):
?((S%!(M%*4))+277)
0:M$=($hy%)
1:SJ%=&A^?((S%!(M%*4))+279):P`%=@%:
ny(M%):
(?((S%!(M%*4))+278)
>M$=$((S%!(M%*4))+289)+
((!hy%)/SJ%)+" "+$((S%!(M%*4))+301)
((!hy%)/SJ%)
:@%=P`%
(?((S%!(M%*4))+278)
:M$=($((S%!(M%*4))+291))+
(|hy%)+" "+$((S%!(M%*4))+303)
(|hy%)
?hy%<>0
M$=$((S%!(M%*4))+294)
M$=$((S%!(M%*4))+281)
#d%,$((S%!(M%*4))+8)+"{bold}{tab}"+M$:
8,18,U$,&FFF:
&406C1:
iu(Vy%,gu%,lJ%)
mB%,i$,F$,T$:mB%=
Ay:rn%=n%:
za(Vy%)
:ka%=rn%:
R%-1:F$="":F%=
F(M%):Iy%=?((S%!(M%*4))+277):`a%=ka%:
M(`a%,!b%)+F%:T$=
3," "):
(`a%+1)
:F$+=yy$+T$:T$=
&C," "):
T$)=$((S%!(M%*4))+8):F$+=T$+" "+Iy$:
mB%+16>Tl%
Tl%-16," ")
mB%," ")
($hy%)>
#Vy%,F$+
$hy%,
(T$))+
(&D);:F$=
&F," "):i$=
$hy%,
(T$)+1):
(i$)+&F>Tl%:
#Vy%,
&F," ")+
i$,Tl%-&F)+
(&D);:i$=
i$,Tl%-&E):
:T$=i$
T$)=($hy%)
(!hy%)
(|hy%)
?hy%<>0
T$)=$((S%!(M%*4))+294)
T$)=$((S%!(M%*4))+281)
:F$+=T$:`a%+=1:
`a%>=(ka%+lJ%)
`a%>m%:
#Vy%,F$+
(&D);:
#Vy%,"":ka%+=lJ%:
ka%>=(rn%+(gu%*lJ%))
ka%>m%:rn%+=((gu%+1)*lJ%):
#Vy%,&C:
rn%>m%:
A(A%(M),2,"1"):
A(A%(M),6,"1"):
A(A%(M),8,
(P%)):
Z(A%(M),4,
Z(A%(M),5,
Z(A%(M),&F,
Z(A%(M),9,
Z(A%(M),24,
Z(A%(M),&B,
Z(A%(M),&C,
):Tl%=
t_:nO%=Tl%*7200:Pi%=(qn%-dn%)/nO%:
(qn%-dn%)<nO%
Tl%=((qn%-dn%)/7200)-1
Pi%=0
Pi%=1
A(A%(M),20,
(Pi%)):Be%=R%+2:Po%=Be%*&2EE0:Qi%=(YB%-WO%-&8CA0)/Po%:
Qi%=0
Qi%=1
A(A%(M),18,
(Qi%)):
P(A%(M),22):
P(A%(M),21):
P(A%(M),32):
P(A%(M),35):
P(A%(M),36):
P(A%(M),38):
P(A%(M),40):
P(A%(M),39):
P(A%(M),41):
S(A%(M),22):
S(A%(M),21):
S(A%(M),32):
S(A%(M),35):
S(A%(M),36):
S(A%(M),38):
S(A%(M),40):
S(A%(M),39):
S(A%(M),41):
S(A%(M),4)
n%=0:m%=P%-1
Z(A%(M),6))-1:m%=
Z(A%(M),8))-1:
n%>m%
m%>=P%
A("PgR")
:Se%=
S(A%(M),&C):ok%=
S(A%(M),9):gu%=
Z(A%(M),18)):lJ%=
Z(A%(M),20)):
sy+&80140
,,,,Zy$;A_%:
5Qo%=
:Zy$=
A("NPD"):mO%=0:dn%=0:WO%=0:qn%=0:YB%=0
sy+&80143
,,mO%,dn%,WO%,qn%,YB%
A(A%(M),16,Zy$):
A(A%(&F),0,Zy$):
Cy%,rl%:Cy%=0:
R%-1:rl%=
R($((S%!(M%*4))+8))+16:
rl%>Cy%
Cy%=rl%
:=Cy%
Ay:Cy%=0:
R%-1:
?((S%!(M%*4))+277)
0:bl%=?((S%!(M%*4))+278)
1,2:bl%=&C
3:bl%=
($((S%!(M%*4))+281)):
($((S%!(M%*4))+294))>bl%
($((S%!(M%*4))+294))
:bl%+=1
bl%>Cy%
Cy%=bl%
:=Cy%
Z%!16
s_%=-1
H_(Z%!0,Z%!4,-1,i%)
a(By%)
m_(Z%!0,Z%!4)
7,6:du%=&D:
Y(yn%,0),Z%!0,Z%!4)
&C:Ll%=_l%:Da%=1:
oJ(Z%!0,Z%!4)
&A,5:FO%=&D:
gy,Z%!0,Z%!4)
eZ%,U%,au%:Sl%=(l_%?0):
(l_%?1)=0
B(_%!(Sl%*4),!b%,P%*2)
P%-1:?((!b%)+(U%*2))=?((_%!(Sl%*4))+((P%-1-U%)*2)):?((!b%)+(U%*2)+1)=?((_%!(Sl%*4))+((P%-1-U%)*2)+1):
(l_%?2)<>&FF
au%=0:
G_(0,P%-1)
z(0):
O(0,0):A`%=
&400D1,A%(7),0,-&FFFFFFF,&FFFF,0:
aJ(LB%)
h%,Nn%,pl%,Zi%:
LB%>ty%
Nn%=LB%-1
Nn%=LB%
:pl%=
R_(Nn%):
Nn%<>pl%
pl%>Nn%
pl%-=1
pl%>=ty%
pl%+=1
:L%!0=A%(7):
&400CB,,L%:h%=L%!24:h%-=(pl%-LB%)*cy%:
Zy%<>-1
&400D3,,J%:Zi%=J%!20
z(pl%):
O(h%,0):
Zi%=0
Z(A%(7),Zy%)="0"
Zi%=1
Z(A%(7),Zy%))
Z(A%(7),Zy%))
Zy%<>-1
&400D2,A%(7),Zy%,,,-1,Zi%
&400D1,A%(7),0,-&FFFFFFF,&FFFF,0
wi(M%,U%)
Zu%,w%:w%=0:Zu%=
:M%-=1:
(M%>=0):
(?((S%!(M%*4))+277)<3)
(?((S%!(M%*4))+280))
:w%+=60
(?((S%!(M%*4))+277)=3)
w%-=60
:M%-=1
U%-=1:w%+=64:M%=R%-1
q(w%),0):i%=M%:t%=U%:Wl%=!((S%!(M%*4))+277):
z(z`%)
(z`%>=0)
(z`%<=P%)
t%=z`%:
Zy%<>-1
t%=z`%:
u:vn%=t%
O_(M%,U%)
Zu%,w%:w%=0:Zu%=
:M%+=1:
(M%<R%):
(?((S%!(M%*4))+277)<3)
(?((S%!(M%*4))+280))
:w%-=60
(?((S%!(M%*4))+277)=3)
w%-=60
:M%+=1
U%+=1:w%-=64:M%=0
U%>P%
q(w%),0):i%=M%:t%=U%:Wl%=!((S%!(M%*4))+277):
Z%!16
Z%!8=4
ei%=
J(A%(31))
Z%!16
q(cy%),0):
z(t%-1)
q(-cy%),0):
z(t%+1)
O(0,0):
O(-cy%*(P%+1),0):
z(P%)
Z(A%(16),4,
):Yu%=
Z(A%(16),4,
):Yu%=
A(A%(18),1,I$):
A(A%(18),0,d$):
Q(A%(18),
A("SAs")):AJ%=eJ%:_$=d$:
G(A%(18),Z%!0,Z%!4)
My:Bl%=
G(A%(M),Z%!0,Z%!4)
Z(A%(16),8)))
F(zu%)
zu%<=P%
zu%>0
O(-cy%*(zu%-1),0):
z(zu%-1):
&400D2,A%(16),8,,,-1,1
MJ:_y%=i%:
_y%<0
_y%>(R%-1)
0 _y%=0
A(A%(27),9,""):
A(A%(27),4,""):
A(A%(27),0,$((S%!(_y%*4))+8)):
?((S%!(_y%*4))+277)
A(A%(27),7,
A("MnuOp6")):RJ%=6
2,1,3:
A(A%(27),7,
A("MnuOp0")):RJ%=0
a(A%(27)):
F%,q%,ye%:
Z%!16
&406C0:
Z%!16=2
q%=-1
:ye%=t%:F%=
F(_y%):
A_(!b%,F%,s,t%,P%-1,q%)+1)
Ny(!b%,F%,s,t%,P%-1,q%)+1)
y_(!b%,F%,s,t%,P%-1,q%)+1)
sy(!b%,F%,s,t%,P%-1,q%)+1)
Zy(!b%,F%,s,t%,P%-1,q%)+1)
Wy(!b%,F%,s,t%,P%-1,q%)+1)
yy(!b%,F%,PJ%,t%,P%-1,q%)+1)
U_(!b%,F%,PJ%,t%,P%-1,q%)+1)
ky(!b%,F%,PJ%,t%,P%-1,q%)+1)
Cy(!b%,F%,PJ%,t%,P%-1,q%)+1)
B_(!b%,F%,PJ%,t%,P%-1,q%)+1)
Z_(!b%,F%,PJ%,t%,P%-1,q%)+1)
Oy(!b%,F%,Z$,t%,P%-1,q%)+1)
fy(!b%,F%,Z$,t%,P%-1,q%)+1)
Ry(!b%,F%,Z$,t%,P%-1,q%)+1)
S_(!b%,F%,Z$,t%,P%-1,q%)+1)
hy(!b%,F%,Z$,t%,P%-1,q%)+1)
ey(!b%,F%,Z$,t%,P%-1,q%)+1)
wy(!b%,F%,Z$,t%,P%-1,q%)+1)
Iy(!b%,F%,Z$,t%,P%-1,q%)+1)
ry(!b%,F%,Z$,t%,P%-1,q%)+1)
qy(!b%,F%,Z$,t%,P%-1,q%)+1)
Uy(!b%,F%,Z$,t%,P%-1,q%)+1)
iy(!b%,F%,Z$,t%,P%-1,q%)+1)
Q_(!b%,F%,Z$,t%,P%-1,q%)+1)
ny(!b%,F%,Z$,t%,P%-1,q%)+1)
Ty(!b%,F%,Z$,t%,P%-1,q%)+1)
H_(!b%,F%,Z$,t%,P%-1,q%)+1)
M_(!b%,F%,Z$,t%,P%-1,q%)+1)
_y(!b%,F%,Z$,t%,P%-1,q%)+1)
Dy(!b%,F%,Z$,t%,P%-1,q%)+1)
oy(!b%,F%,Z$,t%,P%-1,q%)+1)
ly(!b%,F%,Z$,t%,P%-1,q%)+1)
Ky(!b%,F%,Z$,t%,P%-1,q%)+1)
By(!b%,F%,Z$,t%,P%-1,q%)+1)
uy(!b%,F%,Z$,t%,P%-1,q%)+1)
Gy(!b%,F%,ci%,t%,P%-1,q%)+1)
Hy(!b%,F%,ci%,t%,P%-1,q%)+1)
&406C1:
ye%=t%
J(A%(28))
a(A%(27)):
J(A%(28))
Z%!16
Z%!8=4
t r`%=
J(A%(27))
J(A%(27))
?((S%!(_y%*4))+277)
G(_J%,Z%!0,Z%!4)
G(Pl%,Z%!0,Z%!4)
G(Kn%,Z%!0,Z%!4)
!du%=27:
Y(-1,0),Z%!0,Z%!4)
&406C0:La%=?((S%!(_y%*4))+277):
((La%=2
La%=1)
RJ%>5)
(La%=3
RJ%>1)
A("IvO")
Z(A%(27),4):
&406C1:
f%,F%,f$,Dy$:F%=
F(_y%):Dy$=Q$:
Q$,1)=""""
Q$,1)="""")
G(Dy$))=0
(Q$)>0)
%TB%=
Q$,1)=""""
Q$,1)="""")
(Q$)-2):Q$=Z$
Z$=Q$
0:f%=
Ly(F%):
Oy(!b%,F%,Z$,-1,P%-1,1)+1)
1:f%=P%-
Ly(F%):
fy(!b%,F%,Z$,-1,P%-1,1)+1)
2:f%=P%-
D_(F%):
Ry(!b%,F%,Z$,-1,P%-1,1)+1)
3:f%=
`y(F%):
S_(!b%,F%,Z$,-1,P%-1,1)+1)
4:f%=
D_(F%):
hy(!b%,F%,Z$,-1,P%-1,1)+1)
5:f%=P%-
`y(F%):
ey(!b%,F%,Z$,-1,P%-1,1)+1)
6:f%=
vy(F%):
wy(!b%,F%,Z$,-1,P%-1,1)+1)
7:f%=
by(F%):
Iy(!b%,F%,Z$,-1,P%-1,1)+1)
8:f%=
Vy(F%):
ry(!b%,F%,Z$,-1,P%-1,1)+1)
9:f%=P%-
vy(F%):
qy(!b%,F%,Z$,-1,P%-1,1)+1)
&A:f%=P%-
by(F%):
Uy(!b%,F%,Z$,-1,P%-1,1)+1)
&B:f%=P%-
Vy(F%):
iy(!b%,F%,Z$,-1,P%-1,1)+1)
G(Q$):TB%=
0:Z$=Q$:f%=
Xy(F%):
Q_(!b%,F%,Z$,-1,P%-1,1)+1)
1:Z$=Q$:f%=P%-
Xy(F%):
ny(!b%,F%,Z$,-1,P%-1,1)+1)
2:Z$=Q$:f%=P%-
J_(F%):
Ty(!b%,F%,Z$,-1,P%-1,1)+1)
3:Z$=Q$:f%=
P_(F%):
H_(!b%,F%,Z$,-1,P%-1,1)+1)
4:Z$=Q$:f%=
J_(F%):
M_(!b%,F%,Z$,-1,P%-1,1)+1)
5:Z$=Q$:f%=P%-
P_(F%):
_y(!b%,F%,Z$,-1,P%-1,1)+1)
6:Z$=f$:f%=
C_(F%):
Dy(!b%,F%,Z$,-1,P%-1,1)+1)
7:Z$=f$:f%=
Jy(F%):
oy(!b%,F%,Z$,-1,P%-1,1)+1)
8:Z$=f$:f%=
zy(F%):
ly(!b%,F%,Z$,-1,P%-1,1)+1)
9:Z$=f$:f%=P%-
C_(F%):
Ky(!b%,F%,Z$,-1,P%-1,1)+1)
&A:Z$=f$:f%=P%-
Jy(F%):
By(!b%,F%,Z$,-1,P%-1,1)+1)
&B:Z$=f$:f%=P%-
zy(F%):
uy(!b%,F%,Z$,-1,P%-1,1)+1)
gy(f%):
Xy(F%)
k%,Fl%:k%=
l(_%!(_y%*4),F%,Z$,0,P%-1):
/Fl%=
w_(_%!(_y%*4),F%,Z$,k%,P%-1):=k%-Fl%+1
Ly(F%)
k%,Fl%:k%=
`(_%!(_y%*4),F%,Z$,0,P%-1):
/Fl%=
k_(_%!(_y%*4),F%,Z$,k%,P%-1):=k%-Fl%+1
C_(F%)
f%,U%:f%=0:
P%-1:
M(U%,_%!(_y%*4))+F%),Z$)
f%+=1
Jy(F%)
f%,U%:f%=0:
P%-1:
M(U%,_%!(_y%*4))+F%),Z$)
f%+=1
zy(F%)
f%,U%:f%=0:
P%-1:
M(U%,_%!(_y%*4))+F%),Z$)
f%+=1
vy(F%)
f%,U%:f%=0:
P%-1:
M(U%,_%!(_y%*4))+F%),
(Z$))=Z$
f%+=1
by(F%)
f%,U%:f%=0:
P%-1:
M(U%,_%!(_y%*4))+F%),
(Z$))=Z$
f%+=1
Vy(F%)
f%,U%:f%=0:
P%-1:
M(U%,_%!(_y%*4))+F%),Z$)
f%+=1
J_(F%)=P%-
u_(_%!(_y%*4),F%,Z$,0,P%-1)
P_(F%)=
Y_(_%!(_y%*4),F%,Z$,0,P%-1)+1
D_(F%)=P%-
b_(_%!(_y%*4),F%,Z$,0,P%-1)
`y(F%)=
O_(_%!(_y%*4),F%,Z$,0,P%-1)+1
TJ%,f%,F%:TJ%=
J(Q$):
A("FNN")
F(_y%):
0:f%=
X_(F%):
A_(!b%,F%,s,-1,P%-1,1)+1)
1:f%=P%-
X_(F%):
Ny(!b%,F%,s,-1,P%-1,1)+1)
2:f%=P%-
Yy(F%):
Zy(!b%,F%,s,-1,P%-1,1)+1)
3:f%=
my(F%):
sy(!b%,F%,s,-1,P%-1,1)+1)
4:f%=
Yy(F%):
Zy(!b%,F%,s,-1,P%-1,1)+1)
5:f%=P%-
my(F%):
Wy(!b%,F%,s,-1,P%-1,1)+1)
gy(f%):
X_(F%)
k%,Fl%:k%=
i(_%!(_y%*4),F%,s,0,P%-1):
.Fl%=
z_(_%!(_y%*4),F%,s,k%,P%-1):=k%-Fl%+1
Yy(F%)=P%-
f_(_%!(_y%*4),F%,s,0,P%-1)
my(F%)=
x(_%!(_y%*4),F%,s,0,P%-1)+1
gy(f%)
A(A%(27),9,
A("NnF")):r`%=
(f%):
A(A%(27),9,
A("nFd")):
A(A%(28),0,
A("nFd")):
a(A%(28)):
Q(A%(28),"'"+Q$+"'")
TJ%,f%,F%:PJ%=
J(Q$)*(&A^(?((S%!(_y%*4))+279))):
A("FNN")
F(_y%):
0:f%=
N_(F%):
yy(!b%,F%,PJ%,-1,P%-1,1)+1)
1:f%=P%-
N_(F%):
U_(!b%,F%,PJ%,-1,P%-1,1)+1)
2:f%=P%-
L_(F%):
ky(!b%,F%,PJ%,-1,P%-1,1)+1)
3:f%=
xy(F%):
Cy(!b%,F%,PJ%,-1,P%-1,1)+1)
4:f%=
L_(F%):
B_(!b%,F%,PJ%,-1,P%-1,1)+1)
5:f%=P%-
xy(F%):
Z_(!b%,F%,PJ%,-1,P%-1,1)+1)
gy(f%):
N_(F%)
k%,Fl%:k%=
s(_%!(_y%*4),F%,PJ%,0,P%-1):
/Fl%=
o(_%!(_y%*4),F%,PJ%,k%,P%-1):=k%-Fl%+1
ty(F%)
f%,U%:f%=0:
P%-1:
M(U%,_%!(_y%*4))+F%)=ci%
f%+=1
Gy(O%,F%,`%,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)=`%
K%=Q%
Hy(O%,F%,`%,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)<>`%
K%=Q%
L_(F%)=P%-
l_(_%!(_y%*4),F%,PJ%,0,P%-1)
xy(F%)=
z(_%!(_y%*4),F%,PJ%,0,P%-1)+1
bu:F%=
F(_y%):
C(Q$,$((S%!(_y%*4))+281))=0
ci%=0
C(Q$,$((S%!(_y%*4))+294))=0
ci%=1
A("NSS")
0:f%=
ty(F%):
Gy(!b%,F%,ci%,-1,P%-1,1)+1)
1:f%=P%-
ty(F%):
Hy(!b%,F%,ci%,-1,P%-1,1)+1)
gy(f%):
Z%!16<>-1
xy(Z%!16):
Z%!16
Ky(Z%!&C,Z%):
J(Z%!&C)
a(A%(6))
Y(A%(5),8),Z%!0,Z%!4):du%=2:fu%=(Z%!16)-1:BJ%=0:__%=0
8,&C,16:
I_(A%(32),
),Z%!0,Z%!4):du%=2:fu%=(Z%!16)-1:BJ%=1:__%=((Z%!16)-8)
Z%!16
Ky(Z%!&C,Z%):
J(Z%!&C)
Y(A%(5),8),Z%!0,Z%!4):du%=2:fu%=(Z%!16)-1:BJ%=0:__%=0
I_(-1,
),Z%!0,Z%!4):du%=29:fu%=(Z%!16)-1:BJ%=1:__%=0
VJ(M%,X%,Y%,No%)
Iy%,Ku%:Iy%=?((S%!(M%*4))+277):T%=M%:
A(A%(5),1,
(|(Z%(V%)+620))):
A(A%(5),3,
(|(Z%(V%)+625))):Ku%=((Z%(V%)?616)
1)<>0:
Q(A%(5),
A("XFi")+" "+$((S%!(M%*4))+8)):
Z(A%(5),0,
S(A%(5),0):
S(A%(5),1):
S(A%(5),3):
Z(A%(5),5,
P(A%(5),5)
Z(A%(5),0,Ku%):
S(A%(5),0):
S(A%(5),1):
S(A%(5),3):
Z(A%(5),5,
Ku%):
S(A%(5),5)
Z(A%(5),0,
S(A%(5),0):
P(A%(5),1):
P(A%(5),3):
Z(A%(5),5,
P(A%(5),5)
Z(A%(5),0,
S(A%(5),0):
S(A%(5),1):
S(A%(5),3):
Z(A%(5),5,
P(A%(5),5)
Z(A%(5),0,Ku%):
S(A%(5),0):
S(A%(5),1):
S(A%(5),3):
Z(A%(5),5,
Ku%):
S(A%(5),5)
Z(A%(5),0,
S(A%(5),0):
P(A%(5),1):
P(A%(5),3):
Z(A%(5),5,
P(A%(5),5)
Z(A%(5),0,Ku%):
S(A%(5),0):
S(A%(5),1):
S(A%(5),3):
Z(A%(5),5,
Ku%):
S(A%(5),5)
Z(A%(5),0,
S(A%(5),0):
P(A%(5),1):
P(A%(5),3):
Z(A%(5),5,
P(A%(5),5)
Z(A%(5),0,Ku%):
S(A%(5),0):
S(A%(5),1):
S(A%(5),3):
Z(A%(5),5,
Ku%):
S(A%(5),5)
Z(A%(5),0,Ku%):
S(A%(5),0):
P(A%(5),1):
P(A%(5),3):
Z(A%(5),5,
Ku%):
S(A%(5),5)
Z(A%(5),0,
S(A%(5),0):
P(A%(5),1):
P(A%(5),3):
Z(A%(5),5,
P(A%(5),5)
`(A%(5),X%,Y%)
N(A%(5),X%,Y%,-1)
kJ(Pk%,X%,Y%,No%)
M%,Iy%,lu%,Ku%,Ql%,tZ%:
Pk%=0
&?M%=C%(0,__%):Iy%=4:T%=-2:
Q(A%(32),
A("YFi")+" "+
A("FrT"))
M%=Pk%-2:T%=M%:Iy%=?((S%!(M%*4))+277):
Q(A%(32),
A("YFi")+" "+$((S%!(M%*4))+8))
:lu%=((!((Z%(V%)+632)+(__%*&C)+8))
8)<>0:Ql%=(!((Z%(V%)+632)+(__%*&C)+8)
4)<>0:hu%=(!((Z%(V%)+632)+(__%*&C)+8)
16)<>0:
Z(A%(32),&A,
Z(A%(32),9,
Z(A%(32),5,lu%):
Z(A%(32),&C,hu%):
S(A%(32),9):
P(A%(32),&A):
S(A%(32),5):
S(A%(32),&C)
Z(A%(32),&A,
Z(A%(32),9,
Z(A%(32),5,lu%):
Z(A%(32),&C,hu%):
S(A%(32),9):
P(A%(32),&A):
S(A%(32),5):
S(A%(32),&C)
3,0,4:
Z(A%(32),&A,
Z(A%(32),9,
Z(A%(32),5,lu%):
Z(A%(32),&C,hu%):
S(A%(32),9):
P(A%(32),&A):
S(A%(32),5):
S(A%(32),&C)
Z(A%(32),&A,
Ql%):
Z(A%(32),9,Ql%):
Z(A%(32),5,lu%):
Z(A%(32),&C,hu%):
S(A%(32),9):
S(A%(32),&A):
S(A%(32),5):
S(A%(32),&C)
Z(A%(32),&A,
Ql%):
Z(A%(32),9,Ql%):
Z(A%(32),5,lu%):
Z(A%(32),&C,hu%):
S(A%(32),9):
S(A%(32),&A):
S(A%(32),5):
S(A%(32),&C)
3,0,4:
Z(A%(32),&A,
Z(A%(32),9,
Z(A%(32),5,lu%):
Z(A%(32),&C,hu%):
S(A%(32),9):
P(A%(32),&A):
S(A%(32),5):
S(A%(32),&C)
Z(A%(32),&A,
Ql%):
Z(A%(32),9,Ql%):
Z(A%(32),5,lu%):
Z(A%(32),&C,hu%):
S(A%(32),9):
S(A%(32),&A):
S(A%(32),5):
S(A%(32),&C)
Z(A%(32),&A,
Ql%):
Z(A%(32),9,Ql%):
Z(A%(32),5,lu%):
Z(A%(32),&C,hu%):
S(A%(32),9):
S(A%(32),&A):
S(A%(32),5):
S(A%(32),&C)
3,0,4:
Z(A%(32),9,
Z(A%(32),&A,
Z(A%(32),5,lu%):
Z(A%(32),&C,hu%):
S(A%(32),9):
P(A%(32),&A):
S(A%(32),5):
S(A%(32),&C)
`(A%(32),X%,Y%)
N(A%(32),X%,Y%,-1)
Ky(Wa%,D%)
D%!8<>1
J(Wa%)
PJ(X%,Y%,Wa%,xe%)
vO%:nB%=xe%:kO%=Wa%:J%!0=A%(35):J%!4=xe%:
&400CE,,J%:vO%=J%!28:Z%!0=1:Z%!4=0:Z%!8=X%:Z%!&C=&80000000:Z%!16=&7FFFFFFF:Z%!20=Y%:Z%!24=0:Z%!28=0:Z%!32=vO%:Z%!36=0:
&47702,1,Z%
&400CF,,Z%:Y`%=Z%!&C:
Nu!J%=kO%:J%!4=nB%:
&400CE,,J%:
&400C4,,J%:
(Z%!24)
J%!28=-1
J%!28=Z%!28
:J%!4=kO%:
&400C2,nB%,J%+4:
&400D1,A%(35),0,-&FFFF,&FFFF,0:
Z%!16
Ky(A%(4),Z%)
J(A%(4))
6,7,4:
Z(A%(4),&A,
Z%!16
Ky(A%(34),Z%):
Ky(A%(35),Z%)
J(A%(34)):
J(A%(35))
oo%,Ay%,fB%,tB%,U`%:oo%=Z%!16
PJ(Z%!0,Z%!4,A%(35),Z%!16)
PJ(Z%!0,Z%!4,A%(35),(Z%!16)-1)
6:Z`%=(Z%!16)-1:Ay%=Z%!16
7:J%!4=(Ay%*7)+3:
&400CE,,J%:tB%=J%!28:J%!4=(Ay%*7)+1:
&400CE,,J%:fB%=J%!28:v%!64=tB%:v%!68=fB%:
(Z%(V%)?607)=0
(Z%(V%)?607)=1
U`%=0
&4075D,j_%,"fill"+
(U`%),v%+64,,0:
G(iu%,Z%!0,Z%!4)
U`%=0
&4075D,j_%,"style"+
(U`%),v%+64,,0:
G(mu%,Z%!0,Z%!4)
Z%!16
Z%!8<>1
&400D4,,-1:
J(A%(5))
&400D4,,-1:
J(A%(5))
0,1,3:
S(A%(5),0)
Z(A%(5),0,
Z(A%(5),5,
S(A%(5),5)
Z(A%(5),0,
Z(A%(5),5,
Z%!16
Z%!8<>1
&400D4,,-1:
J(A%(32))
&400D4,,-1:
J(A%(32))
9,5,&C:
S(A%(32),9)
Z(A%(32),9,
Z(A%(32),&A,
S(A%(32),&A)
Z(A%(32),9,
Z(A%(32),&A,
Z%!16
Z%!8=4
J(A%(6))
J(A%(6))
3+1,3+2:
U(A%(6),3,(((Z%!16)-3-1)*-2)+1,&7FFFFFFE,-&7FFFFFFF):
Z(A%(6),&B,
&F+1,&F+2:
U(A%(6),&F,(((Z%!16)-&F-1)*-2)+1,&7FFFFFFE,-&7FFFFFFF):
Z(A%(6),23,
6+1,6+2:
U(A%(6),6,(((Z%!16)-6-1)*-2)+1,&7FFFFFFE,-&7FFFFFFF):
Z(A%(6),&B,
18+1,18+2:
U(A%(6),18,(((Z%!16)-18-1)*-2)+1,&7FFFFFFE,-&7FFFFFFF):
Z(A%(6),23,
Z(A%(6),&B,
&F,18:
Z(A%(6),23,
Z%!16
3,4,5:
G(zi%,Z%!0,Z%!4)
Ui%=0
N(A%(29),Z%!0,Z%!4,-1)
N(A%(2),Z%!0,Z%!4,-1)
N(A%(4),Z%!0,Z%!4,-1)
N(A%(3),Z%!0,Z%!4,-1)
Ru(Z%!0,Z%!4)
xy(Te%)
G$,B$,ny$,Jy%:ny$=
A("Key"):
0:G$="pie_on":B$=
A("PCt"):
J(A%(2)):
J(A%(6))
1:G$="bar_on":B$=
A("BCt"):
J(A%(29))
3:G$="line_on":B$=
A("LGr"):
J(A%(29))
2:G$="scatter_on":B$=
A("ScG"):
J(A%(29))
:Ui%=Te%:
Jy%=0
Z(A%(0),Jy%,Jy%=Ui%):
Oy(A%(1),3,G$):
A(A%(1),4,B$):
A(A%(1),6,ny$):Z%(V%)?607=Ui%:
k(V%):
jO%,ee%,s`%,hZ%,Iy%:
M(CJ%,4,"DRc",&80,Z+Gy,-1):
M(CJ%,1,"Pri",2+8,Z+Gy,A%(M))
M(CJ%,4,"DRc",&80,Z,-1):
M(CJ%,1,"Pri",2+8,Z,A%(M))
M(CJ%,3,"ARc",0,Z+Gy,-1):
M(CJ%,0,"Sav",0,Z+Gy,kl%)
M(CJ%,3,"ARc",0,Z,-1):
M(CJ%,0,"Sav",0,Z,kl%)
G(CJ%,Z%!0-64,Z%!4):ya%=Z%!0:Ya%=Z%!4:ma%=A%(7):T%=
Q(ya%,Ya%)
4:jO%=Z%!0:ee%=Z%!4:ma%=A%(7):s`%=
Q(jO%,ee%):
(s`%<>i%)
(vn%<>t%)
,i%=s`%:vn%=t%:Wl%=!((S%!(s`%*4))+277):
Zn%,Jy,Ay:
Zy%<>-1
Ay(A%(7),Zy%):Zy%=-1:
J(A%(30)):Gu%=
(P%+1)*cy%<=296
#Xy%=(-((t%*(296/(P%+1)))+42))-8
Xy%=(-((t%*cy%)+42))-8
:Xy%-=60*
x_(i%):
s_%<>-1
__(i%)
Jl(Xy%,i%,t%):
P_(A%(7),Zy%):Zn%=
Z(A%(7),Zy%)):
&400D2,A%(7),Zy%,,,-1,Zn%
Ki(Xy%,i%,t%):
P_(A%(7),Zy%):Zn%=
Z(A%(7),Zy%)):
&400D2,A%(7),Zy%,,,-1,Zn%:F=
Z(A%(7),Zy%)):Ay=!((S%!(i%*4))+281):Jy=!((S%!(i%*4))+285):
((F>Ay)
(F<Jy))
((?((S%!(i%*4))+278))
iy(Jy,Ay)
tl(Xy%,i%,t%):
P_(A%(7),Zy%):Zn%=
Z(A%(7),Zy%)):
&400D2,A%(7),Zy%,,,-1,Zn%:F=
Z(A%(7),Zy%)):Ay=|((S%!(i%*4))+281):Jy=|((S%!(i%*4))+286):
((F>Ay)
(F<Jy))
((?((S%!(i%*4))+278))
iy(Jy,Ay)
3:L%!0=A%(7):
&400CB,,L%:tn%=((L%!20)-(L%!4))+jO%:
tn%>=((&C+(S_%))+4)
tn%<=(((&C+(S_%))+4)+(&C*16)+44)
`_(i%,t%,0)
tn%>=(((&C+(S_%))+4)+(&C*16)+44+16)
tn%<=(((&C+(S_%))+4)+(&C*16)+44+16+(&C*16)+44)
`_(i%,t%,1)
t%<ty%
vJ%=(!((!b%)+(t%*2)))
&FFFF
vJ%=(!((!b%)+((t%-1)*2)))
&FFFF
Py(i%,
b(i%+64,vJ%),64,x%):
Py(i%,
b(i%+0,vJ%),0,P%):
aJ(t%)
:Fi%=&400E1:An%=
+20:By=6192:
Hy(i%):
s_%<>-1
HJ(i%)
:i%=-1
P_(p%,Jy%)J%!0=p%:J%!4=Jy%:J%!8=0:J%!&C=0:
&400CD,,J%:
Ay(p%,Jy%)J%!0=p%:J%!4=Jy%:
&400CE,,J%:
&400C4,,J%:Z%!0=p%:Z%!4=J%!8:Z%!8=J%!&C:Z%!&C=J%!16:Z%!16=J%!20:
&400C9,,Z%
G%,r%:G%=0:
(R%-1):!((S%!(r%*4))+4)=G%:
?((S%!(r%*4))+277)
0:G%+=(?((S%!(r%*4))+278))+1
1:G%+=4
3:G%+=1
2:G%+=5
O(M%)
?((S%!(M%*4))+277)
0:Cy%=(?((S%!(M%*4))+278))+1
1:Cy%=4
3:Cy%=1
2:Cy%=5
1,"Invalid field type passed to FNget_field_length"
:=Cy%
F(M%)=!((S%!(M%*4))+4)
T_(U%)=(!e%)+(U%*4)
L(U%)
U%>ty%
U%-=1
M(U%,(!b%))
M(U%,O%)=!((!e%)+(((O%!(U%*2))
&FFFF)*4))
Qk%:Qk%=ly%:
i((wy%+3)
3)):ly%+=((wy%+3)
3)):=Qk%
i(w%)
vy%<>-1
Ry(w%):
B(vy%,vy%+w%,sl%-vy%)
B(vy%,vy%+w%,sl%-vy%):
Ry(w%)
:vy%+=w%:sl%+=w%
X_(y_%)
M%,su%,y$:
&406C0:_l%=y_%:Fy$=$(vy%+(H_%*_l%)):
R%-1:su%=(?(vy%+(H_%*_l%)+&D+(M%*2)))-1:l_%?(su%*2)=M%:l_%?((su%*2)+1)=?(vy%+(H_%*_l%)+&E+(M%*2)):
:l_%?(R%*2)=&FF:y$="":M%=0:
(y$)<=20
M%<R%:y$+=$((S%!((l_%?(M%*2))*4))+8):
M%<R%-1
y$+=","
:M%+=1:
LJ:cy%=64+(60*iJ%):
Zy%<>-1
C(A%(7),Zy%):Zy%=-1:i%=-1
&406C1:
Uy:$si%="R2;Sdirblank":
A(A%(&D),6,y$):
A(A%(&D),5,Fy$):
(s_%<>-1
ny%<>-1)
J(A%(24)):
J(A%(25)):
J(A%(8)):
J(A%(9)):
J(A%(&A)):s_%=-1:ny%=-1
A$(),M%,y%,KB%,f$,U%,M%:
A$(R%-1):KB%=vy%+(H_%*_l%)+(&E+(R%*2)):
R%-1:f$="":A$(M%)=$KB%:
`u(A$(M%)):y%=1:
q_(y%,A$(M%)):
(A$(M%)):
oi(f$):A$(M%)=f$:KB%+=&80:
R%-1:
(A$(M%))>3
F(M%):Iy%=?((S%!(M%*4))+277):
Li(M%)
nl(M%)
mu(M%)
aa(M%)
mi:A%=
M(0,_%!(0*4)):
so%,mn%,M%,BB%:
R%-1:mn%=_%!(M%*4):
so%=(Ky%!(M%*4))
((Ky%!(M%*4))+((x%-1)*2))
2:BB%=((!so%)
&FFFF):
((!((!e%)+(BB%*4)))
(1<<31))=0
%mn%?0=BB%
&FF:mn%?1=BB%>>8:mn%+=2
,:P%=(mn%-(_%!((R%-1)*4)))/2:ty%=P%:
Py%=!e%
(!e%)+((x%-1)*4)
4:!Py%=(!Py%)
&7FFFFFFF:
nl(M%)
Fy%,N_%,y%,Wy%,C_%,TJ%:
Fy%=!e%
(!e%)+((x%-1)*4)
((!Fy%)
1<<31)=0
:N_%=1:
(N_%<
(A$(M%)))
Wy%:y%=N_%+1:N_%=
A$(M%),N_%,1)):Wy%=
:C_%=
A$(M%),y%+2,
A$(M%),y%+1,1))))*(&A^(?((S%!(M%*4))+279))):
A("NQN")
A$(M%),y%,1))
0,20,27:Wy%=!((!Fy%)+F%)=C_%
1,21,26:Wy%=!((!Fy%)+F%)<>C_%
28,19:Wy%=!((!Fy%)+F%)>=C_%
29,18:Wy%=!((!Fy%)+F%)<C_%
22,25:Wy%=!((!Fy%)+F%)<=C_%
23,24:Wy%=(!((!Fy%)+F%))>C_%
A("ICO")
:y%+=2+
A$(M%),y%+1,1)):
y%>=N_%:
!Fy%=(!Fy%)
1<<31
aa(M%)
Fy%,N_%,y%,Wy%,N,TJ%:
Fy%=!e%
(!e%)+((x%-1)*4)
((!Fy%)
1<<31)=0
:N_%=1:
(N_%<
(A$(M%)))
Wy%:y%=N_%+1:N_%=
A$(M%),N_%,1)):Wy%=
A$(M%),y%+2,
A$(M%),y%+1,1)))):
A("NQN")
A$(M%),y%,1))
0,20,27:Wy%=|((!Fy%)+F%)=N
1,21,26:Wy%=|((!Fy%)+F%)<>N
28,19:Wy%=|((!Fy%)+F%)>=N
29,18:Wy%=|((!Fy%)+F%)<N
22,25:Wy%=|((!Fy%)+F%)<=N
23,24:Wy%=|((!Fy%)+F%)>N
A("ICO")
:y%+=2+
A$(M%),y%+1,1)):
y%>=N_%:
!Fy%=!Fy%
1<<31
mu(M%)
Fy%,N_%,y%,Wy%,S$,n$,AB%:
Fy%=!e%
(!e%)+((x%-1)*4)
((!Fy%)
1<<31)=0
:N_%=1:
(N_%<
(A$(M%)))
Wy%:y%=N_%+1:N_%=
A$(M%),N_%,1)):Wy%=
A$(M%),y%+2,
A$(M%),y%+1,1))):n$=
G(S$):
C(S$,$((S%!(M%*4))+281))=0
AB%=0
C(S$,$((S%!(M%*4))+294))=0
AB%=1
A("NBQ")
A$(M%),y%,1))
1,21,26:Wy%=?((!Fy%)+F%)<>AB%
0,20,27:Wy%=?((!Fy%)+F%)=AB%
A("ICO")
:y%+=2+
A$(M%),y%+1,1)):
y%>=N_%:
!Fy%=!Fy%
1<<31
Li(M%)
Fy%,N_%,y%,Wy%,S$,n$,O$:
Fy%=!e%
(!e%)+((x%-1)*4)
((!Fy%)
1<<31)=0
:N_%=1:
(N_%<
(A$(M%)))
Wy%:y%=N_%+1:N_%=
A$(M%),N_%,1)):Wy%=
A$(M%),y%+2,
A$(M%),y%+1,1))):O$=S$:n$=
G(S$):
A$(M%),y%,1))
41:Wy%=
c($((!Fy%)+F%),n$)
40:Wy%=
c($((!Fy%)+F%),n$)
43:Wy%=
e($((!Fy%)+F%),n$)
42:Wy%=
e($((!Fy%)+F%),n$)
35:Wy%=
r($((!Fy%)+F%),n$)
34:Wy%=
r($((!Fy%)+F%),n$)
0,20,27:Wy%=
g_($((!Fy%)+F%),S$)=0
1,21,26:Wy%=
C($((!Fy%)+F%),S$)<>0
28,19:Wy%=
C($((!Fy%)+F%),S$)>=0
29,18:Wy%=
C($((!Fy%)+F%),S$)<0
22,25:Wy%=
C($((!Fy%)+F%),S$)<=0
23,24:Wy%=
C($((!Fy%)+F%),S$)>0
&69:Wy%=
$((!Fy%)+F%),
(O$))<>O$
&68:Wy%=
$((!Fy%)+F%),
(O$))=O$
&6B:Wy%=
$((!Fy%)+F%),O$)=0
&6A:Wy%=
$((!Fy%)+F%),O$)>0
99:Wy%=
$((!Fy%)+F%),
(O$))<>O$
98:Wy%=
$((!Fy%)+F%),
(O$))=O$
64,20,27:Wy%=$((!Fy%)+F%)=O$
65,21,26:Wy%=$((!Fy%)+F%)<>O$
92,19:Wy%=$((!Fy%)+F%)>=O$
93,18:Wy%=$((!Fy%)+F%)<O$
86,25:Wy%=$((!Fy%)+F%)<=O$
87,24:Wy%=$((!Fy%)+F%)>O$
A("ICO")
:y%+=2+
A$(M%),y%+1,1)):
y%>=N_%:
!Fy%=!Fy%
1<<31
y%,ri%,Qa%,P$,Ii%,kB%:ri%=
:Qa%=
:y%=1:
F$,y%,1)
"""":
F$,y%+1,1)=""""
P$+="""":y%+=1
P$,Ii%)=
(y%-kB%)
P$+=""""
:P$+=
(&A)+
(&FF):Ii%=
(P$):kB%=y%+1
A>Qa%=
:gy$=
P$,Ii%+1):P$=
P$,Ii%)+gy$:
P$,Ii%)=
(P$)-Ii%)
P$+="'"
:P$+=
(&B)+
(&FF):Ii%=
(P$):kB%=y%+1
F$,y%,1)
F$,y%,1)>="a"
F$,y%,1)<="z"
F$,y%,1))
F$,y%,1)
:y%+=1:
(F$):
A("MQ""")
A("MQ'")
:F$=P$:
y%,V$)
Di%,P$,K%:Di%=0:K%=-1:
V$,y%,1)=" ":y%+=1:
V$,y%),P$(Di%))=1
K%=Di%:y%+=
(P$(Di%))
:Di%+=1:
(Di%>
(P$(),1))
K%<>-1:
K%<>-1
(D%(K%))
V$,y%,1)):
K%=&A
K%=&B
X=P$+=
(K%)+
V$,y%+1,
V$,y%+1,1))+1):y%+=
V$,y%+1,1))+2
s_(y%,V$)
y%,V$)
Di%,Q%,h`%,P$,Cy%:Q%=
(V$)+1:
Di%=0
(P$(),1):h`%=
V$,W$(Di%),y%):
(h`%<>0)
(h`%<Q%)
Q%=h`%
V$,y%,Q%-y%):Cy%=Q%-y%:y%=Q%:=
(&B)+
(Cy%)+P$
P$,y%,Ca%,XB%:y%=1:P$=
(&FF):Ca%=0:DJ%=
V$,1)):XB%=1:
DJ%<>&A
DJ%<>&B
(V$):y%+=1:
B%(DJ%))
A("ICO")
:Ca%=(Ca%
W%(DJ%))
P%(DJ%):DJ%=
V$,y%,1)):
DJ%=&A
gO%=64
gO%=0
:P$+=
gO%)+
V$,y%+1,
V$,y%+1,1))+1):y%+=
V$,y%+1,1))+2:DJ%=
V$,y%,1)):
DJ%=3
y%+=1:DJ%=
V$,y%,1))
(DJ%<>&A
DJ%<>&B):Ca%=0:
DJ%=4
DJ%=5
P$,XB%,1)=
(P$)+1):P$+=
(&FF):XB%=
(P$):y%+=1:DJ%=
V$,y%,1))
A("TrR")
(V$):
P$,XB%,1)=
(P$)):V$=P$:
M%:iJ%=0:dB%=0:
R%-1:
?((vy%+(H_%*_l%))+&E+(R%*&82)+(M%
(1<<(M%
m!?((S%!(M%*4))+280)=&FF:iJ%+=1
?((S%!(M%*4))+280)=0:dB%+=1
c$,y_%,M%,tO%:c$=
Z(A%(22),18):
c$=""
A("SNB")
y_%=0
$(vy%+(H_%*y_%))=c$
y_%<>Ll%
A("SNU")
:tO%=0:
R%-1:
S(A%(26),(M%*6)+2)
tO%+=1
tO%=0
A("NFV")
gl%,M%,hi%:
al:hi%=vy%+(H_%*16):gl%=vy%+(H_%*Ll%):$gl%=
Z(A%(22),18):gl%!(&E+(R%*&82))=0:gl%!(18+(R%*&82))=0:
R%-1:gl%?(&D+(M%*2))=
($(hi%+(R%*&80)+(M%*3))):
S(A%(26),(M%*6)+3)
gl%?(&E+(M%*2))=0
gl%?(&E+(M%*2))=1
:$(gl%+(&E+(R%*2)+(M%*&80)))=$(hi%+(M%*&80)):
S(A%(26),(M%*6)+2)
~*?(gl%+&E+(R%*&82)+(M%
8))+=(1<<(M%
Ry((((R%*&82)+22)*16)+(R%*3)+(R%*&80)):vy%=ly%:sl%=ly%+(((R%*&82)+22)*16)+(R%*3)+(R%*&80):H_%=((R%*&82)+22):
G%,y_%,M%:
vy:G%=vy%:
y_%=0
&F:$G%=
A("SbS")+
(y_%):
R%-1:G%?(&D+(M%*2))=M%+1:G%?(&E+(M%*2))=0:G%?(&E+(R%*2)+(M%*&80))=&D:
:G%?(&D+(R%*2))=&FF:G%!(&E+(R%*&82))=-1:G%!(18+(R%*&82))=-1:G%+=H_%:
:$vy%=
A("All"):
uu(d%)
G%,y_%,M%:G%=vy%:
y_%=0
#d%,($G%)+
(&D);:
R%-1:
#d%,G%?(&D+(M%*2)):
#d%,G%?(&E+(M%*2)):
#d%,$(G%+(&E+(R%*2)+(M%*&80)))+
(&D);:
q(d%,G%!(&E+(R%*&82))):
q(d%,G%!(18+(R%*&82))):G%+=H_%:
G%,y_%,M%:G%=vy%:
y_%=0
&F:$G%=$V_%:
(G%+&FF)>=V_%
]V_%+=
($G%)+1:
R%-1:G%?(&D+(M%*2))=V_%?0:G%?(&E+(M%*2))=V_%?1:
(G%+&E+(M%*2))>=V_%
M$(G%+(&E+(R%*2)+(M%*&80)))=$(V_%+2):
(G%+(&E+(R%*2)+(M%*&80)))+&FF>=V_%
kV_%+=3+
($(G%+(&E+(R%*2)+(M%*&80)))):
:G%!(&E+(R%*&82))=V_%!0:G%!(18+(R%*&82))=V_%!4:G%+=H_%:V_%+=8:
Ba(U_%)
Py%,w%,M%,OJ%,c`%,y_%:
Ry((&82*16)+&83):
y_%=&F
-1:Py%=(y_%*H_%)+vy%:w%=(&82*y_%):OJ%=Py%!(&E+((R%-1)*&82)):c`%=Py%!(18+((R%-1)*&82)):
U_%<32
B`%=OJ%
(-1<<((U_%+1)
32)):OJ%=OJ%
(-1<<((U_%+1)
32)):OJ%=OJ%
(B`%<<1):OJ%=OJ%
(1<<(U_%+1)):c`%=c`%
(1<<(U_%-31)):Py%!(&E+(R%*&82)+w%)=OJ%
:Py%!(18+(R%*&82)+w%)=Py%!(18+((R%-1)*&82)):
U_%<R%-2
M%=R%-2
U_%+1
-1:$(Py%+(R%*2)+&E+((M%+1)*&80)+w%)=$(Py%+((R%-1)*2)+&E+(M%*&80)):
:$(Py%+(R%*2)+&E+((U_%+1)*&80)+w%)="":
M%=U_%
-1:$(Py%+(R%*2)+&E+(M%*&80)+w%)=$(Py%+((R%-1)*2)+&E+(M%*&80)):
U_%<R%-1
M%=R%-2
U_%+1
-1:Py%?(&D+(M%*2)+w%+2)=Py%?(&D+(M%*2)):Py%?(&E+(M%*2)+w%+2)=Py%?(&E+(M%*2)):
:Py%?(&D+((U_%+1)*2)+w%)=R%:Py%?(&E+((U_%+1)*2)+w%)=0:
M%=U_%
-1:Py%?(&D+(M%*2)+w%)=Py%?(&D+(M%*2)):Py%?(&E+(M%*2)+w%)=Py%?(&E+(M%*2)):
:$(Py%+w%)=$Py%:
:H_%+=&82:sl%+=(&82*16)+&83:
Fu(oJ%)
Py%,w%,M%,OJ%,c`%,y_%,su%:
y_%=0
&F:Py%=(y_%*H_%)+vy%:w%=(&82*y_%):$(Py%-w%)=$Py%:
oJ%>0
oJ%-1:su%=Py%?(&D+(M%*2)):
su%>(oJ%+1)
su%-=1
:Py%?(&D+(M%*2)-w%)=su%:Py%?(&E+(M%*2)-w%)=Py%?(&E+(M%*2)):
oJ%<R%-1
M%=oJ%+1
R%-1:su%=Py%?(&D+(M%*2)):
su%>(oJ%+1)
su%-=1
:Py%?(&D+((M%-1)*2)-w%)=su%:Py%?(&E+((M%-1)*2)-w%)=Py%?(&E+(M%*2)):
oJ%>0
oJ%-1:$(Py%+((R%-1)*2)+&E+(M%*&80)-w%)=$(Py%+(R%*2)+&E+(M%*&80)):
oJ%<(R%-1)
M%=oJ%+1
R%-1:$(Py%+((R%-1)*2)+&E+((M%-1)*&80)-w%)=$(Py%+(R%*2)+&E+(M%*&80)):
:OJ%=Py%!(&E+(R%*&82)):c`%=Py%!(18+(R%*&82)):
oJ%<32
dB`%=OJ%
(-1<<((oJ%+1)
32)):OJ%=OJ%
(-1<<(oJ%
32)):OJ%=OJ%
(B`%>>1):Py%!(&E+((R%-1)*&82)-w%)=OJ%
:Py%!(18+((R%-1)*&82)-w%)=Py%!(18+(R%*&82)):
:H_%-=&82:sl%-=(&82*16)+&83:
Ry((-&82*16)-&83):
Zy(w%)
K(w%)
A("Mem")
Ui(-w%)
:Ry%+=w%:Ry%=(Ry%+3)
U%,r%,K%,F_%,gZ%:
&FF)=0
hy(-2,&400,0):
hy(-1,&400,0):
e_%=0
R%-1:
hy(e_%,&400,0):
hy(e_%,&400,64):
A(A%(&D),5,
A("All")):
S(A%(&D),9):
S(A%(&D),8):
S(A%(&D),6):
S(A%(16),4):
S(A%(&D),&E):
S(A%(&D),&C):
S(A%(&D),&A):
S(A%(&D),5):
S(A%(16),6):
S(A%(16),5):
S(A%(16),9):
S(A%(&D),7)
:U%=x%:!((!e%)+(U%*4))=
m_:cl%=!((!e%)+(U%*4)):
(R%-1):
?((S%!(r%*4))+277)
0:$cl%="":cl%+=(?((S%!(r%*4))+278))+1
1:!cl%=0:cl%+=4
3:?cl%=((!((S%!(r%*4))+277))
(1<<8))>0:cl%+=1
2:|cl%=0:cl%+=5
:P%+=1:x%+=1:
e_%=0
(R%-1):
C_(_%!(e_%*4),U%,P%-1):
C_(Ky%!(e_%*4),U%,x%-1):
Py(e_%,P%-1,0,P%):
Py(e_%,x%-1,64,x%):
Ga(!b%,U%,t%):
s_%<>-1
UJ(s_%)
el(ey%)
2:g_%=ey%:Fa%=J%(ey%):
G(di%,Z%!0-64,Z%!4)
(ey%<>V%)
V%<>-1
F%(V%)=F%(V%)
:V%=ey%:SB%=J%(ey%):F%(ey%)=F%(ey%)
xy(Z%(ey%)?607):!L%=J%(ey%):
&400CB,,L%:
N(A%(0),L%!4+Yn%,L%!16+wn%,-1):!L%=J%(ey%):
&400CB,,L%:
N(A%(1),L%!4+Un%,(L%!8)+Dn%-Pn%,-1)
ey%<>V%
(F%(ey%)
k(ey%):
Z%!16
B(ji%,k_%,64):
Z%!8=4
J(A%(23))
J(A%(23))
Z%!16<&C
Z%!16>=0
&d_%=((Z%!16)/2)+1:
_l(d_%,Z%!16
!L%=A%(23):
&400CB,,L%:Va%=(L%!4)-(L%!20):ua%=(L%!16)-(L%!24):d_%=-((((Z%!4)-ua%-24)/60)):Pa%=((Z%!0)-Va%-&88)/20:
d_%>0
d_%<7
A("Row"+
(d_%)):
Pa%>0
Pa%<=
v$,Pa%,1)):ji%?((oy%-32)
8)=(ji%?((oy%-32)
(1<<((oy%-32)
8)):Z%!8=-24-(d_%*60):Z%!4=&88+(20*(Pa%)):Z%!0=A%(23):Z%!&C=&88+(20*(Pa%+1)):Z%!16=-20-((d_%-1)*60):
&400C9,,Z%
_l(d_%,cO%)
pJ%,v$:v$=
A("Row"+
(d_%)):
pJ%=1
(v$):oy%=
v$,pJ%,1)):ji%?((oy%-32)
8)=((ji%?((oy%-32)
((1<<((oy%-32)
8))))
(cO%<<((oy%-32)
:Z%!8=-24-(d_%*60):Z%!4=&88+20:Z%!0=A%(23):Z%!&C=&88+(20*(
(v$)+1)):Z%!16=-20-((d_%-1)*60)
&400C9,,Z%
Z%!16
Z%!8=4
&400D4,,-1
&400D4,,-1
Z%!8=4
&400D4,,-1
&B:h_%=-1:Qu%=-1:
&40091,,0,&C<<16,0,0,0,0
,,,Cu%,,fl%:b_%=
U(Cu%+fl%):na%=b_%+Cu%:
&40091,,b_%,&C<<16,Cu%,na%,fl%,0:e`%=Z%!16:
G(b_%,Z%!0,Z%!4)
&C:h_%=-1:Qu%=-1:
&40091,,0,28<<16,0,0,0,0
,,,Cu%,,fl%:b_%=
U(Cu%+fl%):na%=b_%+Cu%:
&40091,,b_%,28<<16,Cu%,na%,fl%,0
&40091,,0,&C<<16,0,0,0,0
,,,Cu%,,fl%:b_%=
U(Cu%+fl%):na%=b_%+Cu%:
&40091,,b_%,&C<<16,Cu%,na%,fl%,0
:e`%=Z%!16:
G(b_%,Z%!0,Z%!4)
Pu%,Nu%,eu%,Qy%:Pu%=
Z(A%(33),19)))/256:Nu%=
Z(A%(33),23)))/256:eu%=ru%-&84-Pn%-40:Qy%=Ou%-&64:T=eu%/Nu%:wy=Qy%/Pu%:
(wy*&64))
eo%,Gk%:
Z%!16
A(A%(33),4,"33")
A(A%(33),4,"80")
A(A%(33),4,"100")
A(A%(33),4,"120")
4+1,4+2:
U(A%(33),4,(((Z%!16)-4)*2)-3,&FFFF,1)
A(A%(33),4,
17,16:
G(Cl%,Z%!0,Z%!4)
19+1,19+2:
U(A%(33),19,(((Z%!16)-19)*2)-3,&FFFF,&A)
23+1,23+2:
U(A%(33),23,(((Z%!16)-23)*2)-3,&FFFF,&A)
J(A%(33))
Z(A%(33),4)))<=0
A("GSc")
:eo%=Z%(g_%)!672:Gk%=Z%(g_%)!676:Z%(g_%)!672=
Z(A%(33),19))):Z%(g_%)!676=
Z(A%(33),23))):Z%(g_%)!680=(
Z(A%(33),4))/&64)*(1<<16):
(eo%<>Z%(g_%)!672)
(Gk%<>Z%(g_%)!676)
F%(g_%)=F%(g_%)
o_(g_%):
Z%!8=4
J(A%(33))
a(HJ)=HJ*(256*&B4*0.0394)
V_(LJ)
@%:@%="+F.1":=
(((LJ/(256*&B4*0.0394))*&A)+0.5)/&A)
ii(X%,Y%)
Hn%,vy$,ry$:vy$=
V_(Z%(g_%)!672):ry$=
V_(Z%(g_%)!676):
A(A%(33),4,
(((Z%(g_%)!680)/(1<<16))*&64))):
A(A%(33),19,vy$):
A(A%(33),23,ry$):
A(A%(33),16,""):
Hn%=0
A("PSX"+
(Hn%))=vy$
A("PSY"+
(Hn%))=ry$
A(A%(33),16,
A("PS"+
(Hn%)))
N(A%(33),X%,Y%,-1):
n_(D$)
D$,"\")<>0
(D$)-(
D$,"\")+1))
D$,"\")<>0
D$,"\")-1)
Z%!16
&400C0:
&400C9:
&400DD,qi%,&4B534154:
&41504,bi%:
&80142
&400C1:
Z%!&C=sJ%
bl(sJ%)
Z%!&C=gB%
v_(k`%,
v_(Z%+44)):Z%!&C=Z%!8:Z%!16=3:
&400E7,18,Z%,Z%!4
&80147:
wl%=&12345678
{Z%!36=&C7:Z%!0=256:Z%!&C=0:Z%!16=3:Z%!40=&C43:$(Z%+44)="<Wimp$ScrapDir>.DB_Pref"+
(&D)+
(0):wl%=&C43:
&400E7,17,Z%,dr%
wl%=&C43
("Remove <Wimp$ScrapDir>.DB_Pref")
(Z%!40)=eJ%
9Z%!&C=Z%!8:Z%!16=4:
&400E7,17,Z%,Z%!4:
I(Z%+44))
&80145:
an%=sJ%
Ou(sJ%)
&400CC:
&502:
&47700:
Rk%,ZB%,hn%,pJ%,pu%:
sy,"Help$Dir",0,-1,0,0
,,Rk%:
"TZB%=0:hn%=-1:
&42681,ZB%,Z%,256
ZB%,pu%:
pJ%=Z%+4
pu%-4
!(!pJ%)=&706C6548
hn%=pJ%!-4
(ZB%<0)
(hn%>=0):
hn%>=0
%;Z%!0=0:Z%!4=0:Z%!8=4:Z%!&C=-2:Z%!16=0:
&400E7,6,Z%,hn%
(%*Filer_Run Resources:$.Apps.!Help
*Set Help$Dir Resources:$.Apps.!Help
*:*Set Help$Path <Help$Dir>.,Resources:$.Resources.Help.
*WimpSlot -next 20K
*Filer_Run Help:!RunLink
QB%,ma%,t%,tu%:A$=
A("Hlp4"):
0%A$+=
A("MCk")+"|m"+
A("Hlp7_Dbc")
A("NDa")+"|m"
:ma%=A%(7):QB%=
Q(Z%!20,Z%!24):
t%<>ty%
4!J$=
(t%+1):A$+=
A("Hlp7_RcN")
A("Hlp7_RcB")
7/J$=$((S%!(QB%*4))+8):
?((S%!(QB%*4))+277)
0:A$+=
A("Hlp7_Str")
1:A$+=
A("Hlp7_Int")
2:A$+=
A("Hlp7_Rel")
3:A$+=
A("Hlp7_Bol")
:A$+=($((S%!(QB%*4))+21))+
A("Hlp7_Clk")
ta%=1
A("Hlp6__0")
A("Hlp6__1")
Z%!36
Dy:A$+=
A("Hlp6_ok")
Qy:A$+=
A("Hlp6_can")
8:A$+=
A("Hlp6_8")
&C:A$+=
A("Hlp6_12")
&D:A$+=
A("Hlp6_13")
ta%=1
A("Hlp6_Mnu")
Ly:A$+=
A("Hlp6_des")
Uy:A$+=
A("Hlp6_inf")
21:A$+=
A("Hlp6_21")
Z%!36
x:A$+=
A("Hlp6_SrMx")
Fy:A$+=
A("Hlp6_Alw")
f:A$+=
A("Hlp6_MxB")
Yy:A$+=
A("Hlp_Up")
qy:A$+=
A("Hlp_Down")
Z%!36
X:A$+=
A("Hlp6_NmR")
Q:A$+=
A("Hlp6_NmFr")
G:A$+=
A("Hlp6_NmTo")
H:A$+=
A("Hlp6_NmDc")
h:A$+=
A("Hlp6_NmDB")
L:A$+=
A("Hlp6_NmUB")
R,Y:A$+=
A("Hlp6_NmUS")
zy,Ky:A$+=
A("Hlp6_NmUM")
xy,GJ:A$+=
A("Hlp_Up")
dy,ey:A$+=
A("Hlp_Down")
Z%!36
Cy:J$=
Z(A%(21),a):A$+=
A("Hlp6_BlR")
m:J$=
Z(A%(21),z):A$+=
A("Hlp6_BlR")
a,z:A$+=
A("Hlp6_BlTx")
A$,ek%,Nr%:ek%=Z%!8:Nr%=Z%!4:
Z%!32
A%(7):
A%(22):A$=
A("Hlp13"):A$+=
A("Hlp13_"+
(Z%!36))
A%(M):A$=
A("HlpPrRc"):
Z%!36
2,4,5,9,&D,&E,16,18,20,23,42:A$+=
A("HlpPrRc_"+
(Z%!36))
A%(&D):A$=
A("Hlp3")+
A("Hlp3_"+
(Z%!36))
A%(21):
A%(&F)
A%(16):A$=
A("Hlp5"):
Z%!36=4
S(A%(16),4)
A("Hlp5_4_1")
Z(A%(&D),6):A$+=
A("Hlp5_4_0")
Z%!36=8
x(J$=
Z(A%(16),8):A$+=
A("Hlp5_"+
Z%!36<>-1
A("Hlp5_"+
(Z%!36))
A%(8):A$=
A("Hlp9"):
Z%!36
0,1,2,3,9:A$+=
A("Hlp9_"+
(Z%!36))
5,7,&B,&C,&D,16,19,20,22:A$+=
A("Hlp9_Num_"+
(Z%!36))
&E:J$=
Z(By%,&E):A$+=
A("Hlp9_Num_14")
A("Hlp9b")
A%(9):A$=
A("Hlp9"):
Z%!36
0,1,2,3,9:A$+=
A("Hlp9_"+
(Z%!36))
8:A$+=
A("Hlp9_Swi_8")
5:J$=$((S%!(s_%*4))+281):A$+=
A("Hlp9_Swi")
7:J$=$((S%!(s_%*4))+294):A$+=
A("Hlp9_Swi")
A("Hlp9b")
A%(&A):A$=
A("Hlp9"):
Z%!36
0,1,2,3:A$+=
A("Hlp9_"+
(Z%!36))
6,&A:A$+=
A("Hlp9_Str_"+
(Z%!36))
A("Hlp9b")
A%(28):A$=
A("Hlp14")+
A("Hlp14_"+
(Z%!36))
A%(17):
A%(19):A$=
A("Hlp12"):
(Z%!36)<>-1
A("Hlp12_"+
(Z%!36))
A%(23):A$=
A("HlpValW")
A%(18):
Z(A%(18),1),".")
A("HlpSav_P")
A("HlpSav_NP")
A%(25):
A%(24):A$=
A("Hlp2")
A%(26)
A%(27):A$=
A("Hlp11"):
Z%!36<>-1
A("Hlp11_"+
(Z%!36))
A%(&E):A$=
A("Hlp1")
-2:A$=
A("Hlp8")
A%(0):A$=
A("HlpGT_"+
(Z%!36))
A%(1):A$=
A("HlpMD"):
Z%!36
0,2,6:A$+=
A("HlpMD_"+
(Z%!36))
3,4,5:A$+=
A("HlpMD_4")
A%(2):A$=
A("HlpAxi"):
Z%!36
5,6:A$+=
A("HlpAxi_5")
7,8,&B,&C,&F,16:A$+=
A("HlpAxi_7")
0,20,19:A$+=
A("HlpAxi_"+
(Z%!36))
A%(4):
Z%!36
4,5,6,7,8,9,&A:A$=
A("HlpGLb_"+
(Z%!36))
A%(6):A$=
A("HlpAxSt"):
Z%!36
3,6,&A,&B,&F,18,22,23,24,25:A$+=
A("HlpAxSt_"+
(Z%!36))
Z%(V%)?607=1
A("HlpAxSt_26hist")
A("HlpAxSt_26reg")
A%(29):A$=
A("HlpPAx"):
Z%!36
5,6:A$+=
A("HlpPAx_5")
7,8:A$+=
A("HlpPAx_7")
19,20:A$+=
A("HlpPAx_")+
(Z%!36)
A%(32):A$=
A("HlpFlDx2"):
Z%!36
5,6,7,9,&A,&C:A$+=
A("HlpFlDx2_"+
(Z%!36))
A%(5):A$=
A("HlpFlDx1"):
Z%!36
0:A$=
A("HlpFlDx1_0")
1,3,5,6,7:A$+=
A("HlpFlDx1_"+
(Z%!36))
A%(35):A$=
A("HlpGrKey"):
Z%!36<>-1
%A$+=
A("HlpGrKeyP_"+
((Z%!36)
A%(34):A$=
A("HlpGrKey"):
Z%!36<>-1
A$+=
A("HlpGrKey_"+
(Z%!36))
A%(33):A$=
A("HlpGrView"):
Z%!36
4,7,8,9,&A:A$+=
A("HlpGrView_Sca")
16,17:A$+=
A("HlpGrView_PS")
19,23:A$+=
A("HlpGrView_PD")
&B,&C,&F:A$+=
A("HlpGrView_"+
(Z%!36))
Z%!32<>-1
Z%!36<>-1
-aa%)>&7530
-aa%)<&EA60
:Cy$=" |m("+
-aa%)
6000)+" minutes since last save)"
Cy$=" |mRemember to save work regularly. ("+
-aa%)
6000)+" minutes since last save)"
(A$)+
(Cy$)<=&FE
A$+=Cy$
:Z%!0=(20+
(A$)+5)
3):Z%!&C=ek%:Z%!16=&503:$(Z%+20)=A$+
&600E7,17,Z%,Nr%:
Z%!36
-1,0:A$=
A("Hlp2")
S(A%(25),4)
?((S%!(ny%*4))+277)=2
A("Hlp10_Rel")
A("Hlp10_UnG")
A("Hlp10_Grp")
1,2,3,5,6,7,8,9,&A:A$=
A("Hlp10_"+
(Z%!36))
A("ErrUnSav")
A("ErrNoUSv")
Z%!36
i:A$=
A("WrnHlpCan_"+
~(rJ%
&F0))
ay:A$=
A("WrnHlpCon_"+
~(rJ%
&F0))
3:A$=
A("UsErHlp_"+
~(rJ%
&F0)):
Z%!36=i
A("UsErHlpOk")
&400F4,1,Z%,Z%!32,Z%!36:
jl%:A$=
A("HlpBarMnu_"+
(Z%!0))
du%=&D
Z%!4<>-1
Z%!4=0
A("Hlp_SFM_A")
A("Hlp_SFM_D")
A("Hlp_SFM")
Gy$=""
Gy$=$((S%!(T%*4))+8)
Z%!0=2
Z%!4<>-1
.J$=Gy$:A$=
A("HlpRecMnu_"+
(Z%!0)+
(Z%!4))
A("CuF")+Gy$+".|m":A$+=
A("HlpRecMnu_"+
(Z%!0)+
(Z%!4))
(t%):A$=
A("HlpRecMnu_"+
(Z%!0)+
(Z%!4))
_J%,Pl%:A$=
A("HlpStSMnu_"+
(Z%!0))
di%:A$=
A("HlpGrMnu_"+
(Z%!0))
Cl%:J$=
A("PSX"+
(Z%!0)):Qy$=
A("PSY"+
(Z%!0)):A$=
A("HlpPgSz")
G$,Py%,wB%,u%:
Z%!20
A%(7):$(Z%+36)=
F_(I$)+
(0):G$="Record"
By%:$(Z%+36)=
A("Sta")+
(0):G$="Stats"
A%(28):J$=Q$:$(Z%+36)=
A("Fnd")+
(0):G$="Browser"
A%(24):$(Z%+36)=
A("FrT")+
(0):G$="Freq"
J%(u%)=Z%!20
.$(Z%+36)=$(Z%(u%)+8)+
(0):G$="Graph":wB%=
G$="Database"
:Z%!0=&80:Z%!&C=Z%!8:Z%!24=0:$(Z%+28)=G$:Z%?(28+
(G$))=0:Z%!16=&400CC:
&400E7,17,Z%,Z%!4:
Z%!40
eJ%:Z%!&C=Z%!8:Z%!16=4:
&400E7,17,Z%,Z%!4:
I(Z%+44))
I(Z%+44):
A("EUs")
J$=""
A("Can"):H$=
A("Lod"):
A("WDL")
&FFD:Z%!&C=Z%!8:Z%!16=4:
&400E7,17,Z%,Z%!4:
I(Z%+44))
I(Z%+44):
A("EUs")
J$=""
A("Can"):H$=
A("Lod"):
A("WDL")
&DFE:Z%!&C=Z%!8:Z%!16=4:
&400E7,17,Z%,Z%!4:
I(Z%+44),",")
I(Z%+44):
A("EUs")
J$=""
A("Can"):H$=
A("Lod"):
A("WDL")
I(Py%)
?Py%<>0:F$+=
(?Py%):Py%+=1:
Z%!20
A%(M):
My:Bl%=
`(A%(M),Z%!24,Z%!28)
A%(33):
Cy(A%(33),Z%!24,Z%!28)
A%(19):
`(A%(19),Z%!24,Z%!28)
A%(18):
(Z%!36)
A(A%(18),1,I$):
A(A%(18),0,d$):
Q(A%(18),
A("SAs")):AJ%=eJ%:_$=d$
2:Ba%=
A(A%(18),1,
A("Txt")):
A(A%(18),0,"File_FFF"):
Q(A%(18),
A("ExT")):AJ%=&FFF:_$="File_FFF"
A(A%(18),1,
A("CSV")):
A(A%(18),0,"File_DFE"):
Q(A%(18),
A("ExC")):AJ%=&DFE:_$="File_DFE"
3:Ba%=
A(A%(18),1,
A("Txt")):
A(A%(18),0,"File_FFF"):
Q(A%(18),
A("ExT")):AJ%=&FFF:_$="File_FFF"
A(A%(18),1,
A("DrF")):
A(A%(18),0,"File_AFF"):
Q(A%(18),
A("ExG")):AJ%=&AFF:_$="File_AFF"
`(A%(18),Z%!24,Z%!28)
M(Jl%,0,"Alt",0,Z+Gy,-1)
M(Jl%,0,"Alt",0,Z,-1)
>*J$="":
j_(Jl%,2,"Del",&80,Z+Gy,-1,Ir%)
J$=$((S%!(T%*4))+8):
j_(Jl%,2,"Del",&80,Z,-1,Ir%)
&400E8,,Z%!20,Z%!24,Z%!28
A%(5):
VJ(Z%!32,Z%!24,Z%!28,
A%(32):
kJ(Z%!32,Z%!24,Z%!28,
A(A%(21),21,
A("NeF")+
(R%)):$l`%=
A("DTx"):
Z(A%(21),8,
d_:T_%=0:
uy:fy$=
A("StringMax"):eB%=
A("StringMaxFlag"))<>0:
Y_:Ny$=
A("NumericalMax"):Wy$=
A("NumericalMin"):Ry$=
A("DecimalPlaces"):`J%=
A("DP_flag"))>0:CB%=
A("Range_flag"))>0:X`%=
A("Units_flag"))>0:Py$="":Vy$="":
oy:Yy$=
A("On"):ty$=
A("Off"):
Z%!16
Z%!8=4
J ei%=
ta%=1
J(A%(21))
T_%<>0
d_:T_%=0
(T_%<>1)
(T_%<>2)
V T_%=1
T_%=2
T_%<>3
GJ:T_%=3
^!du%=21:
Y(-1,0),Z%!0,Z%!4)
Z%!16
eu(Z%!0,Z%!4)
U(A%(21),x,1,&FF,1)
U(A%(21),x,-1,&FF,1)
Z%!16
Z(A%(21),Cy,
Z(A%(21),m,
Z(A%(21),m,
Z(A%(21),Cy,
Z%!16
T_%=1
T_%=2:`J%=
T_%=1:`J%=
U(A%(21),H,1,8,0):
T_%=1:`J%=
Z(A%(21),h,
U(A%(21),H,-1,8,0):
T_%=1:`J%=
Z(A%(21),h,
T_%=1:`J%=
Z(A%(21),h,
U(A%(21),Q,1,&7FFFFFFE,-&7FFFFFFF)
U(A%(21),Q,-1,&7FFFFFFE,-&7FFFFFFF)
U(A%(21),G,1,&7FFFFFFE,-&7FFFFFFF)
U(A%(21),G,-1,&7FFFFFFE,-&7FFFFFFF)
G(ju%,Z%!0,Z%!4)
G(_u%,Z%!0,Z%!4)
H(p%,D%,
ay%,uJ%,wJ%,xu%,VB%)D%!0=p%:D%!4=uJ%:D%!8=wJ%:D%!&C=xu%:D%!16=VB%:
&400C2,ay%,D%
D(p%,D%,
ay%,uJ%,wJ%,xu%,VB%,Qn%,B$)D%!0=p%:D%!4=uJ%:D%!8=wJ%:D%!&C=xu%:D%!16=VB%:D%!24=Qn%:$Qn%=B$:
&400C2,ay%,D%
j(p%,D%,
ay%,uJ%,wJ%,xu%,VB%,Qn%,B$,hr%)D%!0=p%:D%!4=uJ%:D%!8=wJ%:D%!&C=xu%:D%!16=VB%:D%!24=Qn%:$Qn%=B$:D%!28=hr%:
&400C2,ay%,D%
wy(p%,
QZ%,uJ%,wJ%,xu%,Qn%,py$,k_%)
j(p%,`_%,DZ%,uJ%,wJ%,xu%,wJ%+52,Qn%,py$,k_%):
H(p%,ga%,QZ%,xu%+8,wJ%+&A,xu%+40,wJ%+42):
H(p%,ln%,ar%,xu%+40,wJ%+&A,xu%+72,wJ%+42):
FJ(p%,
ay%,IZ%,uJ%,wJ%,cO%)YJ%!0=p%:YJ%!4=uJ%:YJ%!8=wJ%:YJ%!&C=uJ%+44:YJ%!16=wJ%+44:YJ%!20=((YJ%!20)
-&1F0001)+(IZ%<<16):YJ%!20=((YJ%!20)
(1<<21)))
(1<<21)):
&400C2,ay%,YJ%
Z(A%(21),8,
H(A%(21),jJ%,k,N`%,gJ%,n`%,gn%):
D(A%(21),nJ%,Fy,bo%,zk%,Io%,Fe%,PZ%,
A("Vld")):
D(A%(21),Du%,f,ze%,uk%,So%,Je%,aB%,
A("MxL")):
wy(A%(21),x,Yy,qy,We%,Ho%,Oo%,mr%,fy$,Ce%):
L_(gJ%):
Z(A%(21),f,eB%):
ta%=1
`n%<>0
P(A%(21),f):
P(A%(21),x):
P(A%(21),Yy):
P(A%(21),qy)
J(A%(23)):
Z(A%(21),&C,
H(A%(21),jJ%,k,N`%,RB%,n`%,gn%):
D(A%(21),Du%,h,Ke%,Mo%,Zr%,Hk%,aB%,
A("DcP")):
D(A%(21),Du%,X,vo%,Xr%,kk%,Zk%,_Z%,
A("Rng")):
D(A%(21),LJ%,by,tk%,ho%,te%,we%,LJ%+24,
A("Frm"))
D(A%(21),LJ%,hy,pk%,Go%,ne%,Sr%,LJ%+24,
A("NTo")):
wy(A%(21),H,T_,S_,Kk%,wk%,ce%,be%,Ry$,m`%):
wy(A%(21),Q,xy,dy,nk%,ro%,Wr%,zr%,Wy$,o`%):
wy(A%(21),G,__,ey,Cr%,_o%,Yr%,pr%,Ny$,o`%):
Z(A%(21),h,`J%):
Z(A%(21),X,CB%)
D(A%(21),Du%,L,Xk%,fe%,`e%,Ge%,Le%,
A("UnB")):
Z(A%(21),L,X`%):
D(A%(21),LJ%,ty,de%,vk%,to%,Pe%,LJ%+24,
A("USL")):
D(A%(21),LJ%,gy,Co%,lk%,Jo%,Ok%,LJ%+24,
A("UPL")):
j(A%(21),`_%,R,Ae%,Wo%,ak%,Fr%,Fn%,Vy$,kn%)
j(A%(21),`_%,Y,Vk%,ao%,Pr%,ae%,ba%,Py$,kn%):
H(A%(21),Ru%,zy,HB%,rB%,HB%+44,rB%+44):
H(A%(21),Ru%,Ky,eO%,JO%,eO%+44,JO%+44):
L_(RB%):
J(A%(23)):
Z(A%(21),&D,
H(A%(21),jJ%,k,N`%,YO%,n`%,gn%):
D(A%(21),Fu%,w_,Rr%,Qr%,sk%,Ve%,aB%,
A("Atn")):
FJ(A%(21),Cy,2,hk%,po%,
FJ(A%(21),m,2,Oe%,fo%,
j(A%(21),`_%,a,Br%,De%,Yk%,`o%,or%,Yy$,bB%)
j(A%(21),`_%,z,Kr%,Tr%,yo%,Ck%,cr%,ty$,bB%):
L_(YO%):
L_(h%)
H(A%(21),ou%,Uy,xk%,xo%+h%,Nk%,Fo%+h%):
D(A%(21),nJ%,Qy,oe%,Do%+h%,jk%,Dk%+h%,AZ%,
A("Can")):
D(A%(21),dJ%,Dy,go%,Ik%+h%,Mk%,Xo%+h%,SZ%,ay$):
j(A%(21),`_%,Ly,re%,ue%+h%,io%,Gr%+h%,l`%,$l`%,kn%)
D(A%(21),Fu%,cy,se%,Fk%+h%,zo%,do%+h%,HZ%,
A("Des")):L%!0=A%(21):
&400CB,,L%:L%!8=(L%!16)-(uo%)+h%:
&400C5,,L%:
&400D1,A%(21),0,-&FFFFFFF,&FFFF,gn%+8:
C(A%(21),Uy):
C(A%(21),Qy):
C(A%(21),Dy):
C(A%(21),Ly):
C(A%(21),cy):
C(A%(21),k):
C(A%(21),Fy):
C(A%(21),x):
C(A%(21),f):
C(A%(21),Yy):
C(A%(21),qy):
Z(A%(21),8,
C(A%(21),h):
C(A%(21),X):
C(A%(21),by):
C(A%(21),hy):
C(A%(21),H):
C(A%(21),T_):
C(A%(21),S_):
C(A%(21),Q):
C(A%(21),xy):
C(A%(21),dy):
C(A%(21),G):
C(A%(21),__):
C(A%(21),ey):
C(A%(21),L):
C(A%(21),ty):
C(A%(21),gy):
C(A%(21),R):
C(A%(21),Y)
C(A%(21),zy):
C(A%(21),Ky):
Z(A%(21),&C,
C(A%(21),Cy):
C(A%(21),m):
C(A%(21),a):
C(A%(21),z):
Z(A%(21),&D,
C(A%(21),w_)
TJ(f_%)
Iy%:Iy%=f_%!277:
A(A%(21),21,$(f_%+8)):$l`%=$(f_%+21):
0:fy$=
((Iy%>>8)
&FF):eB%=((f_%?279)
1)=1:
B(f_%+537,k_%,64)
1:Ny$=
(f_%!281):Wy$=
(f_%!285):Ry$=
(f_%?279):`J%=
:CB%=((f_%?278)
1)=1:X`%=((f_%?278)
2)=2:Py$=$(f_%+289):Vy$=$(f_%+301):
2:Ny$=
(|(f_%+281)):Wy$=
(|(f_%+286)):Ry$=
A("DecimalPlaces"):`J%=
:CB%=((f_%?278)
1)=1:X`%=((f_%?278)
2)=2:Py$=$(f_%+291):Vy$=$(f_%+303):
3:Yy$=$(f_%+281):ty$=$(f_%+294):
:T_%=(Iy%
&FF):
J(A%(17)):
0,0,Ou%,ru%:
C(A%(17),i):
C(A%(17),ay):
*WimpKillSprite ic_database
*WimpKillSprite ic_browser
*WimpKillSprite ic_record
*WimpKillSprite ic_stats
*WimpKillSprite ic_freq
*WimpKillSprite ic_graph
Z_(Ye%)
rJ%=0:
&400DD,qi%,&4B534154:
rJ%=0:
&FF0)+q
Qu(T%):ia%=
&400D3,,Z%:Z%!24=508:
&400E7,8,Z%,TO%
&400DD,qi%,&4B534154:
&41504,bi%:
fy(T%,ca%):
Wu(T%):
Hl(T%):
si(T%):
kl(T%):
uJ(T%):
qJ(T%):
cu(T%):
ei(T%):
ry(Sy$)
h_:Ll%=Bo%:
SJ(SO%,J%(SO%))
rJ(X%,Y%)ta%=1:ay$=
A("AlI"):
Q(A%(21),
A("AlF")):
TJ(S%!(T%*4)):
H(A%(21),Ru%,t,UO%,fO%,UO%+44,fO%+44)
i_(A%(21)):
Cy(A%(21),X%,Y%):
oJ(X%,Y%)
Cy(A%(22),X%,Y%):
Cy(A%(26),X%+16,Y%+&64):
Ru(X%,Y%)
Jy%,I_%,Ay%:v%!0=A%(35):
&400CC,,v%
v%!(84+4)>0
Jy%=0
(v%!(84+4))-1:
C(A%(35),Jy%):
:v%!0=0:v%!4=-(((Su%-tJ%)+8)*((Z%(V%)!668)))+Su%:v%!8=&FFFF:v%!&C=0:
&400D7,A%(35),v%:I_%=0:Jy%=0:
Z%(V%)!668>0
Ay%=0
(Z%(V%)!668)-1:B$=
$(Z%(V%)+684+(44*Ay%)+0),&B):
D(A%(35),LJ%,Jy%,ik%,tJ%+I_%,`k%,Su%+I_%,LJ%+24,B$):KJ%!24=!(Z%(V%)+684+(44*Ay%)+36):
H(A%(35),KJ%,Jy%,Za%,tJ%+I_%,Za%+Ol%,Su%+I_%):
H(A%(35),tl%,Jy%,`O%,IO%+I_%,`O%+44,IO%+44+I_%)
KJ%!24=!(Z%(V%)+684+(44*Ay%)+32):
H(A%(35),KJ%,Jy%,da%,tJ%+I_%,da%+Ol%,Su%+I_%):
H(A%(35),tl%,Jy%,vB%,yO%+I_%,vB%+44,yO%+44+I_%):KJ%!24=!(Z%(V%)+684+(44*Ay%)+40):
H(A%(35),KJ%,Jy%,ja%,tJ%+I_%,ja%+Ol%,Su%+I_%)
H(A%(35),Ru%,Jy%,zO%,_O%+I_%,zO%+44,_O%+44+I_%):I_%-=(Su%-tJ%)+8:
Z(A%(34),2,(Z%(V%)!605)
&80):
N(A%(35),X%+8,Y%+&96,-1):
N(A%(34),X%,Y%,A%(35)):
k_(X%,Y%)
t<>-2
C(A%(21),t):t=-2
:ta%=2:ay$=
A("AdI"):
Q(A%(21),
A("AdF")):
i_(A%(21)):
Cy(A%(21),X%,Y%):
Z%!20=h_%
Z%!20=b_%
Z%!20=Qu%
&400CF,,Yy%:
Yy%!8=1
`(A%(19),!Yy%,Yy%!4)
G(A%(19),!Yy%,Yy%!4)
iu%:!J%=A%(35):J%!4=Z`%:
&400CE,,J%:
&400C4,,J%:
0:J%!28=0
1:J%!28=8
2:J%!28=4
3:J%!28=2
4:J%!28=1
5:J%!28=3
6:J%!28=&C
:J%!4=A%(35):
&400C2,Z`%,J%+4:
&400D1,A%(35),0,-&FFFF,&FFFF,0
mu%:!J%=A%(35):J%!4=Z`%:
&400CE,,J%:
&400C4,,J%:J%!28=Z%!0:J%!4=A%(35):
&400C2,Z`%,J%+4:
&400D1,A%(35),0,-&FFFF,&FFFF,0
Z%!4=1
G`%=1:$si%="R2;Sdescending"
G`%=0:$si%="R2;Sascending"
:l_%?0=Z%!0:l_%?1=G`%:l_%?2=&FF:y$=($((S%!((Z%!0)*4)+8))):
A(A%(&D),6,y$):
21:T%=Z%!0:`n%=?((S%!(T%*4))+277):
TJ(S%!((Z%!0)*4))
__(Z%!0)
27:_y%=Z%!0:
A(A%(27),0,$((S%!(_y%*4))+8))
!Z%=0
A(A%(29),fu%,""):C%(BJ%,__%)=0:G%(BJ%,__%)=4:ky%=!((Z%(V%)+632)+8):ky%=ky%
16):ky%=ky%
4:!((Z%(V%)+632)+8)=ky%
A(A%(29),fu%,$((S%!(((!Z%)-1)*4))+8)):C%(BJ%,__%)=(!Z%)-1:G%(BJ%,__%)=?((S%!(((!Z%)-1)*4))+277):ky%=!((Z%(V%)+632)+8):ky%=ky%
16):ky%=ky%
4:!((Z%(V%)+632)+8)=ky%
BJ%=0
VJ(Z%!0,Yy%!0,Yy%!4,
!Z%=1
A(A%(2),fu%,""):C%(BJ%,__%)=-1:G%(BJ%,__%)=-1
kJ(Z%!0,Yy%!0,Yy%!4,
X_(Z%!0)
Ll%=Z%!0:
A("Can"):H$=
A("Cha"):Bo%=Z%!0:
A("SAl")
!Z%=0
e`%=&C
A("SyF")
&400A0,0,b_%,Z%,
&FF," "),&FF
,,,D$
e`%=&C
sy(D$,Y_,Vr%):Oy$=D$
sy(D$,v_,Ak%):dy$=D$
A(A%(18),1,I$):
A(A%(18),0,d$):
Q(A%(18),
A("SAs")):AJ%=eJ%:_$=d$:
G(A%(18),Yy%!0,Yy%!4):
A(A%(18),1,I$):
A(A%(18),0,d$):
Q(A%(18),
A("SAs")):AJ%=eJ%:_$=d$:
G(A%(18),Yy%!0,Yy%!4)
A(A%(18),1,
A("CSV")):
A(A%(18),0,"File_DFE"):
Q(A%(18),
A("ExC")):AJ%=&DFE:_$="File_DFE":
G(A%(18),Yy%!0,Yy%!4)
A(A%(18),1,
A("Txt")):
A(A%(18),0,"File_FFF"):
Q(A%(18),
A("ExT")):AJ%=&FFF:_$="File_FFF":Ba%=
G(A%(18),Yy%!0,Yy%!4)
A(A%(18),1,
A("Txt")):
A(A%(18),0,"File_FFF"):
Q(A%(18),
A("ExT")):AJ%=&FFF:_$="File_FFF":Ba%=
G(A%(18),Yy%!0,Yy%!4)
My:Bl%=
G(A%(M),Yy%!0,Yy%!4)
0:`n%=?((S%!(T%*4))+277):
rJ(Yy%!0,(Yy%!4)-fn%)
k_(Yy%!0,(Yy%!4)-fn%)
r_(T%)
Yy(t%)
tJ(t%)
_J%,Pl%,Kn%:RJ%=Z%!0:
A(A%(27),7,
A("MnuOp"+
(RJ%)))
xy(Z%!0):
_u%:$Fn%="":
&400D5,,_u%,Z%,Z%+64:
$Fn%=
$(Z%+64))+$Fn%:$(Z%+64)=
$(Z%+64)):
$(Z%+64))="."
($(Z%+64))=0:
A(A%(21),R,$Fn%)
ju%:$ba%="":
&400D5,,ju%,Z%,Z%+64:
$ba%=
$(Z%+64))+$ba%:$(Z%+64)=
$(Z%+64)):
$(Z%+64))="."
($(Z%+64))=0:
A(A%(21),Y,$ba%)
A(A%(18),1,
A("DrF")):
A(A%(18),0,"File_AFF"):
Q(A%(18),
A("ExG")):AJ%=&AFF:_$="File_AFF":
G(A%(18),Yy%!0,Yy%!4)
G(A%(&F),Yy%!0,Yy%!4)
ii(Yy%!0,Yy%!4)
A(A%(33),16,
A("PS"+
(Z%!0))):
A(A%(33),19,
A("PSX"+
(Z%!0))):
A(A%(33),23,
A("PSY"+
(Z%!0)))
Yy%!8=1
G(Ja%,!Yy%,Yy%!4)
Ja%=b_%
G(A%(19),!Yy%,Yy%!4)
AJ*Set tmp 1
-'*RMEnsure stronghelp 2.03 Set tmp 0
.a*If tmp = 0 then filer_run <Database$Dir>.HelpScript else StrongHelp <Database$Dir>.EDS !Root
*Unset tmp
Yy(Q%)ty%=Q%:t%=ty%:i%=0:Wl%=!((!S%)+277):
&400D1,A%(7),0,-&FFFFFFF,&FFFF,0:
&400DD,qi%,&4B534154:
&41504,bi%:
A("Qit"):L$=
A("Con"):
A("UnQ")
7DZ%!&C=Z%!8:TO%=Z%!4:
&400E7,19,Z%,TO%:
((Z%!20)
(Z%!0<24)
8 ia%=
A("Qit"):L$=
A("Con"):
A("UnQ")
Q(p%,W$)
M`%,Ar%,Vo%:M`%=v%:!M`%=p%:
&400CC,,M`%+1:$(M`%!76)=
W$,M`%!84):L%!0=p%:
&400E0,,L%:Ar%=L%!&C:Vo%=L%!16:
&400CB,,L%:
&400D1,-1,L%!4,L%!16,Ar%,Vo%:
Z%!0<>Y`%
&400C8,,Z%
py%<>0
A%(7):
A%(23):
A%(24):
A%(35):
Bl(Z%)
m(Z%!0)<>-1
m(Z%!0))
ti(Z%)
ti(Dy%)
fi(Dy%):
&400CA,,Dy%
Bl(Dy%)
Ay%,N%(),jy$:
Z%(V%)!668>0
N%(Z%(V%)!668,2):J%!0=A%(35):
Ay%=0
Z%(V%)!668:J%!4=(Ay%*7)+1:
&400CE,,J%:N%(Ay%,0)=J%!28:J%!4=(Ay%*7)+3:
&400CE,,J%:N%(Ay%,1)=J%!28:J%!4=(Ay%*7)+5:
&400CE,,J%:N%(Ay%,2)=J%!28:
:mi%=((Z%!4)-(Z%!20)):fi%=((Z%!16)-(Z%!24)):
py%:I_%=0
Ay%=0
(Z%(V%)!668)-1:u_%!0=Za%:u_%!4=tJ%+I_%:u_%!8=Za%+Ol%:u_%!&C=Su%+I_%:
&400E2,,u_%:
N%(Ay%,0)<>-1
&40743,N%(Ay%,0),,,1<<8,0:
Za%+8+mi%,tJ%+I_%+6+fi%,Ol%-20,(Su%-tJ%)-&E
:u_%!0=da%:u_%!8=da%+Ol%:
&400E2,,u_%:
N%(Ay%,1)<>-1
&40743,N%(Ay%,1),,,1<<8,0:
da%+8+mi%,tJ%+I_%+6+fi%,Ol%-20,(Su%-tJ%)-&E
:u_%!0=ja%:u_%!8=ja%+Ol%:
&400E2,,u_%:
(Z%(V%)?607)=0
(Z%(V%)?607)=1
N%(Ay%,2)
1:G$="Fill4"
2:G$="Fill3"
4:G$="Fill2"
8:G$="Fill1"
3:G$="Fill5"
&C:G$="Fill6"
G$="Fill0"
N%(Ay%,2)>=0
N%(Ay%,2)<=6
G$="Style"+
(N%(Ay%,2))
G$="Style0"
:v%!64=N%(Ay%,1):v%!68=N%(Ay%,0):
&4075D,j_%,G$,v%+64,,0:
&40740,j_%,G$,-1,-1,v%+64,0:
&400ED,256,j_%,G$,,,,v%,0:
46,308,j_%,G$,ja%+8+mi%,tJ%+I_%+6+fi%,8,v%,v%+64:I_%-=(Su%-tJ%)+8:
&400CA,,Dy%
&400CA,,Dy%
fi(Dy%)
D`%,Xa%,X%,Y%,Uy%,h%:D`%=(Dy%!28)+(Dy%!20-Dy%!4):Xa%=((Dy%!16)-(Dy%!24)):Uy%=D`%
vl%:h%=(Xa%-((Xa%-(Dy%!40))
hJ%))-hJ%:
X%=Dy%!28-Uy%
Dy%!36
Y%=h%
(Dy%!32)-hJ%
-hJ%:
46,564,j_%,d`%,X%,Y%,0,wi%,Q`%:
Z%!0<>A%(17)
&400E6,2:
Dy%!4,Dy%!8,Dy%!4,Dy%!16:
(Dy%!4)+2,(Dy%!8)+2,(Dy%!4+2),(Dy%!16)-2:
&400E6,4:
(Dy%!&C)-2,Dy%!8,(Dy%!&C)-2,Dy%!16:
(Dy%!&C)-4,(Dy%!16)-4,(Dy%!&C)-4,Dy%!8:
(Dy%!4)+2,Dy%!8
Z%!0=A%(17)
&400E6,&B:
Dy%!4,Dy%!8,(Dy%!&C)-(Dy%!4)-2,(Dy%!16)-(Dy%!8)-2
Ni(Dy%)
Xa%,X%,Y%,Uy%,h%:Xa%=(Dy%!16)-(Dy%!24):Uy%=D`%
vl%:h%=(Xa%-((Xa%-(Dy%!40))
hJ%))-hJ%:
X%=Dy%!28-Uy%
Dy%!36
Y%=h%
(Dy%!32)-hJ%
-hJ%:
46,564,j_%,d`%,X%,Y%,0,wi%,Q`%:
W_(Dy%)
mi%,fi%:mi%=Dy%!20-Dy%!4:fi%=Dy%!24-Dy%!16:D`%=Dy%!28+mi%:wa%=Dy%!32+fi%:tr%=Dy%!36+mi%:Ra%=Dy%!40+fi%:
fa%,d_%:fa%=60:
py%<>0:
W_(Z%):
d_%=((-Ra%+36)
((-wa%+36)
fa%):
rl(d_%):
&400CA,,Z%
i_(WJ,U,A)=((U+A-1-WJ)
A)+1+WJ
uB%,Ur%,U,J,fa%,Va%,ua%,ll%,`y%,fy%,R_%,w%,K%,Ly%,@%,Yi%:
?((S%!(ny%*4))+277)=1
q Ly%=&A^(?((S%!(ny%*4))+279))
Ly%=1
:ll%=
S(A%(25),4):U=
u:fa%=40:Va%=(Z%!4)-(Z%!20):ua%=(Z%!16)-(Z%!24):R_%=_%!(ny%*4):w%=
F(ny%):fy%=0:
py%<>0:
W_(Z%):uB%=(((-Ra%)-Ri%)
fa%):Ur%=(((-wa%)-Ri%)
fa%):J=U+(uB%*A):
?((S%!(ny%*4))+277)=2
x(R_%,w%,J-A,0,P%-1)
z(R_%,w%,J-A,0,P%-1)
:fy%=0:Yi%=@%:
d_%=uB%
1:Y%=ua%-(Ri%+(d_%*40))-&C:
Va%+20,Y%:
A("WiV")
">=";(J-A)/Ly%;" <=";J/Ly%;
18);P%-1-`y%;
26);((P%-1-`y%)/P%)*&64;
42);P%
?((S%!(ny%*4))+277)=2
x(R_%,w%,J,`y%,P%-1)
z(R_%,w%,J,`y%,P%-1)
(fy%-`y%)
">=";(J-A)/Ly%;" <";J/Ly%;
18);fy%-`y%;
26);:@%="F.2":
;((fy%-`y%)/P%)*&64;"%";
42);:@%=Yi%:
;fy%+1
">=";(J-A)/Ly%;" <";J/Ly%;
18);"-";
26);"-";
42);fy%+1
:`y%=fy%
s(R_%,w%,J,fy%,P%-1):
s`y%=
o(R_%,w%,J,fy%,P%-1):
;J/Ly%;
18);fy%-`y%+1;
26);:@%="F.2":
;((fy%-`y%+1)/P%)*&64;"%";
42);:@%=Yi%:
;fy%+1
;J/Ly%;
18);"-";
26);"-"
42);fy%+1
:J+=A:
&400CA,,Z%
rl(d_%)
v$,X%,Y%,pJ%,n%,m%,v$,oy%:
d_%<=6
d_%>=1
Va%=(Z%!4)-(Z%!20):ua%=(Z%!16)-(Z%!24):v$=
A("Row"+
(d_%)):Y%=ua%-(60*(d_%-1))-24:
pJ%=1
(v$):oy%=
v$,pJ%,1)):
(ji%?((oy%-32)
(1<<((oy%-32)
&400E6,&D
&400E6,&B
Va%+&88+(20*pJ%),Y%:
v$,pJ%,1):
Oa(u%)
Tn%,n%,m%,Ha%,ay%:
F%(u%)
v%!0=Z%(u%)!680:v%!4=0:v%!8=0:v%!&C=Z%(u%)!680:v%!16=((Z%!4)-(Z%!20))*256:v%!20=(((Z%!16)-(Z%!24))*256)-(((Z%(u%)!676)/(1<<16))*v%!&C):Tn%=(Z%(u%)!4)+Z%(u%):v%!&64=0:v%!&68=0:v%!&6C=0:v%!&70=0:v%!&74=((Z%!4)-(Z%!20)+8)*400
v%!&78=((Z%!16)-(Z%!24)-512)*400:v%!&7C=((Z%!4)-(Z%!20)+8+((((Z%(u%)!672)/(1<<16))*v%!0)/256))*400:v%!&80=((Z%!16)-(Z%!24)+8)*400
py%<>0:
(F%(u%)
(8+16))=(8+16)
&65540,0,Tn%,(Z%(u%)!0)-(Z%(u%)!4),v%,Z%+28
;A_%:
_F%(u%)=F%(u%)
16):F$(u%)="Internal redraw error, graph has not been drawn properly":j$=""
_(a$,&E):
&4074F,ay%,-256,0,&E:n%=0:Ha%=1:m%=-2:
n%=m%+2:
&40085,,
F$(u%),n%),((((Z%(u%)!672)/(1<<16))*v%!0)/256)*400,512*400,32,
(F$(u%))
,G%,,,,m%
&40086,ay%,
F$(u%),n%),672,((Z%!4)-(Z%!20)+8)*400,((Z%!16)-(Z%!24)-(40*Ha%))*400,v%+&64,,m%:Ha%+=1:
m%+n%>=
(F$(u%)):
Ha%+=1:n%=0:m%=-2:
n%=m%+2:
&40085,,
j$,n%),((((Z%(u%)!672)/(1<<16))*v%!0)/256)*400,512*400,32,
,G%,,,,m%:
&40086,ay%,
j$,n%),&A0,((Z%!4)-(Z%!20)+8)*400,((Z%!16)-(Z%!24)-(40*Ha%))*400,v%+&64,,m%:Ha%+=1:
m%+n%>=
yy(ay%)
&400CA,,Z%
BJ(u%,I$,A_%,JZ%)
L_%,qk%,oi%,ki%,P_%,Q_%,xB%,hB%,qO%,wO%,Pu%,Nu%,j,IJ%,py%:
&406C0:
&80140
,,,qk%:Tn%=(Z%(u%)!4)+Z%(u%):KO%=(Z%(u%)!0)-(Z%(u%)!4):L_%=
(I$):
&80145,L_%,"Graph":
&80149,L_%:
#L_%:
("Remove "+I$):
A("PrC")
&80143
,oi%,ki%,xB%,hB%,qO%,wO%:
(oi%-qO%)>xB%
#P_%=(oi%-((oi%-qO%)*2))/400*256
P_%=(oi%-(xB%*2))/400*256
(ki%-wO%)>hB%
#Q_%=(ki%-((ki%-wO%)*2))/400*256
Q_%=(ki%-(hB%*2))/400*256
:Pu%=(Z%(u%)!672):Nu%=(Z%(u%)!676):
(P_%>=Q_%
Pu%>=Nu%)
(P_%<Q_%
Pu%<Nu%)
(P_%/Pu%)<(Q_%/Nu%)
IJ%=(P_%/Pu%)*(1<<16)
IJ%=(Q_%/Nu%)*(1<<16)
IJ%>(1<<16)
IJ%=(1<<16)
(0):v%!16=(oi%/2)-((((Pu%/256*400)*IJ%)/(1<<16))/2):v%!20=(ki%/2)-((((Nu%/256*400)*IJ%)/(1<<16))/2)
(P_%/Nu%)<(Q_%/Pu%)
IJ%=(P_%/Nu%)*(1<<16)
IJ%=(Q_%/Pu%)*(1<<16)
IJ%>(1<<16)
IJ%=(1<<16)
(90):v%!16=(oi%/2)+((((Nu%/256*400)*IJ%)/(1<<16))/2):v%!20=(ki%/2)-((((Pu%/256*400)*IJ%)/(1<<16))/2)
:v%!0=IJ%*
(j):v%!4=IJ%*
(j):v%!8=IJ%*-
(j):v%!&C=IJ%*
(j):v%!24=0:v%!28=0:v%!32=Pu%/256:v%!36=Nu%/256:
(1<<29)
&45542,0,Tn%,KO%
&8014B,,v%+24,v%+0,v%+16,-256:
&8014C,JZ%,v%+40,0,0
py%<>0:
&45540,0,Tn%,KO%,0,v%+40:
&8014D,,v%+40
&80148,L_%:
#L_%:
&406C1:
D`%,tr%,wa%,Ra%,U%,cJ%,V`%:
(P%+1)*cy%<=296
cJ%=(296/(P%+1))
cJ%=cy%
py%<>0:
W_(Z%):
Ni(Z%):V`%=((-wa%)
(cJ%)):
V`%>P%
V`%=P%
U%=((-Ra%)
(cJ%))
Xa(U%):
&400CA,,Z%
Jy$,oy%,y%:
Ql(k_%,k_%+63):Jy$=
A("DefaultCharacters"):
Jy$=""
y%=k_%
k_%+63:?y%=&FF:
(Jy$):oy%=
Jy$,y%,1)):k_%?((oy%-32)
8)=(k_%?((oy%-32)
8))+(1<<((oy%-32)
q$,bZ%:q$=
Z(A%(21),21):
q$=""
A("FlB")
j(q$)<>-1
j(q$)<>T%
A("Exi")
ZJ%:ZJ%=
Z(A%(21),x)):
ZJ%=0
ZJ%>&FF
A("FlL")
S(A%(21),X)
Z(A%(21),G)=""
Z(A%(21),Q)=""
A("FMV")
Z(A%(21),G))<=
Z(A%(21),Q))
A("FMV")
S(A%(21),h)
Z(A%(21),H))<0
Z(A%(21),H))>8
A("DpR")
C$,X$:C$=
Z(A%(21),a):X$=
Z(A%(21),z):
C$=""
X$=""
A("SSB")
C(C$,X$)=0
A("SS=")
j(q$)
JIu%=-1:
Iu%+=1:
Iu%=(R%-1)
$((S%!(Iu%*4))+8)=q$:
$((S%!(Iu%*4))+8)=q$
Y(x`%,A_%)
Iu%:b_%=-1:Qu%=-1:h_%=
U(28):
X(h_%,"Fld","Fields"):
Iu%=0
((R%-1)*4)
Iu%=((R%-1)*4)
A_%+=&80
:h_%=
U(28+(24*((Iu%>>2)+1))):
ly(h_%,Iu%>>2,$((S%!Iu%)+8),A_%,x`%):
:=h_%
I_(x`%,Ql%)
Iu%,A_%,M%,Aa%:b_%=-1:Qu%=-1:h_%=
U(52):
X(h_%,"Fld","Fields"):A_%=8:Aa%=0:
M(h_%,0,"FMF",8,Z,x`%):Aa%=1
M(h_%,Aa%,"Non",2,Z,-1):Aa%+=1:
(R%-1):
M%=R%-1
A_%+=&80
:h_%=
U(28+(24*(M%+1+Aa%))):
ly(h_%,M%+Aa%,$((S%!(M%*4))+8),A_%,x`%):
:=h_%
y_%:b_%=-1:h_%=-1:Qu%=
U(28+(24*16)):
X(Qu%,"SSM","SubsetMenuWidth"):
y_%=0
ly(Qu%,y_%,$(vy%+(H_%*y_%)),0,-1):
ly(Qu%,y_%,$(vy%+(H_%*y_%)),&80,-1):=Qu%
tJ(U%)
U%=ty%
ty%<>P%
Yy(P%)
A("DRS")
A("DlB"):L$=
A("Can"):
U%<ty%
A("Rec")+
(U%+1)
A("Rec")+
A("DFW")
r_(M%)H$=
A("DlB"):L$=
A("Can"):J$=$((S%!(M%*4))+8):
A("DFW"):
B(A%,B%,C%)
L(M%,QJ%)
G%,r%,iB%:G%=S%!(M%*4):iB%=Y_%-G%:
QJ%>0
`y(QJ%):Y_%+=QJ%
Zy(QJ%):zy%=Y_%+QJ%:ly%=Y_%+QJ%:Y_%+=QJ%
M%<=R%-1
B(G%,G%+QJ%,iB%):
r%=M%
R%-1:S%!(r%*4)+=QJ%:
M%<=R%-1
B(G%,G%+QJ%,iB%):
r%=M%
R%-1:S%!(r%*4)+=QJ%:
`y(QJ%):Y_%+=QJ%
Zy(QJ%):zy%=Y_%+QJ%:ly%=Y_%+QJ%:Y_%+=QJ%
Qu(M%)
Ji%,sy%,my%,w%,Tu%,ZJ%,G%,r%:
&406C0:
Zy%<>-1
Ay(A%(7),Zy%)
Tl(M%)
Fu(M%):
x%>=&FF
sy%=(((x%*2)+&3FF)
&3FF)
sy%=&400
:Ji%=qu%:Xu%=!(S%!(M%*4)):my%=
F(M%):
M%<(R%-1)
6ZJ%=
O(M%):w%=my%+ZJ%:Tu%=wy%-w%:
By(my%,0,w%,Tu%)
:m_%=_%!((M%+1)*4):pu%=(_%!((R%-1)*4))+sy%:
B(m_%,m_%-sy%,pu%-m_%):m_%=Ky%!0:pu%=Ky%!(M%*4):
B(m_%,m_%-sy%,pu%-m_%):m_%=Ky%!((M%+1)*4):pu%=(Ky%!((R%-1)*4))+sy%:
B(m_%,m_%-(2*sy%),pu%-m_%):G%=S%!(M%*4):
B(Ji%,Ji%-(2*sy%),G%-Ji%):G%=S%!((M%+1)*4)
B(G%,G%-(Xu%+(2*sy%)),Y_%-G%):
M%-1:S%!(r%*4)-=(2*sy%):Ky%!(r%*4)-=sy%:
r%=M%+1
R%-1:S%!((r%-1)*4)=(S%!(r%*4))-(Xu%+(2*sy%)):_%!((r%-1)*4)=(_%!(r%*4))-sy%:Ky%!((r%-1)*4)=(Ky%!(r%*4))-(2*sy%):
m_%=Ky%!0:pu%=Ky%!(M%*4):
B(m_%,m_%-sy%,pu%-m_%):G%=S%!(M%*4):
B(Ji%,Ji%-(sy%*2),G%-Ji%):
R%-2:S%!(r%*4)-=(sy%*2):Ky%!(r%*4)-=sy%:
ZJ%=wy%-my%:
By(my%,0,0,0)
:Ji%-=(2*sy%):qu%-=(2*sy%):wy%-=ZJ%:
`y(-(Xu%+(2*sy%)))
:Y_%-=(2*sy%)+Xu%:
Sl%=M%
(Sl%=0:y$=$((S%!0)+8):
A(A%(&D),6,y$)
:R%-=1:
LJ:cy%-=60:
R%<=1
P(A%(&D),7):
A(A%(&D),6,
A("NoF")):
P(A%(&D),6):
&406C1:
-(cy%*(P%+1))<=O_%
1O_%=-(cy%*(P%+1)):
_(A%(7),O_%):
a(A%(7)):
(-(cy%*(P%+1))>O_%)
((cy%*(P%+1))>296)
-O_%=-(cy%*(P%+1)):
_(A%(7),O_%):
a(A%(7))
O_%=296:
_(A%(7),O_%):
a(A%(7))
&400D1,A%(7),0,-&FFFFFFF,&FFFF,0:
wJ:L%!0=A%(7):
&400CB,,L%:
N(A%(&D),L%!4+On%,L%!8+on%,L%!28):
za%,r%,hO%:za%=0:
(x%-1):hO%=!
T_(r%):
hO%>za%
za%=hO%:``%=r%
:=za%
J_(M%,rO%,he%)
F_%,WJ%,K%:F_%=he%!(M%*4):WJ%=0:K%=
((F_%!WJ%)
&FFFF)=rO%
B(F_%+WJ%+2,F_%+WJ%,(x%*2)-(WJ%+2)):K%=
:WJ%+=2:
WJ%=(x%*2):
V_(M%,Me%,Yo%,he%)
F_%,WJ%,K%:F_%=he%!(M%*4):WJ%=0:K%=
((F_%!WJ%)
&FFFF)=Me%
++F_%?WJ%=Yo%
&FF:F_%?(WJ%+1)=Yo%>>8:K%=
:WJ%+=2:
WJ%=(x%*2):
b(M%,Me%)
F_%,WJ%,K%:F_%=_%!(M%*4):WJ%=-2:K%=
WJ%+=2:
((F_%!WJ%)
&FFFF)=Me%:=WJ%>>1
e_%,Gy%,Ko%,zu%:
&406C0:
/!Ry%=Y_%+4:
C_((!b%),&FFFF,t%)
d_:Ko%=
L(t%):
B(Re%,Ko%,((wy%+3)
3))):zu%=(!((!b%)+(t%*2)))
&FFFF:
J_(-1,zu%,_%):
V_(-1,``%,zu%,_%):
(R%-1):
J_(M%,zu%,_%):
J_(M%,zu%,Ky%):
V_(M%,``%,zu%,_%):
V_(M%,``%,zu%,Ky%):
:P%-=1:x%-=1:ly%-=(wy%+3)
3):ty%=P%:vn%=0:
Zy%<>-1
Ay(A%(7),Zy%):i%=&FFFFFFF:Zy%=-1
&406C1:
Ty(M%,ZJ%)
5.p`%=
F(M%)+
O(M%):
By(p`%,ZJ%,p`%,wy%-p`%)
By(my%,`B%,oB%,Tu%)
Xi%,Dl%,zn%,Wn%,RO%,bO%,pO%,q%,n%,m%,He%,U%:
&406C0:Dl%=(my%+`B%+Tu%+3)
3):Xi%=(wy%+3)
Dl%>Xi%
8wRO%=0:bO%=my%+`B%:pO%=oB%:oB%=0:
my%,Tu%:q%=-1:n%=x%-1:m%=0:zn%=ly%-Xi%:Wn%=zy%+(Dl%*(x%-1)):
i((Dl%*x%)-(Xi%*x%))
RO%=my%+`B%:bO%=0:pO%=0:q%=1:n%=0:m%=x%-1:zn%=zy%:Wn%=zy%
U%=n%
&406C4,((U%-n%)/x%)*&64*q%:
B(zn%+pO%,Wn%+bO%,my%):
B(zn%+oB%,Wn%+RO%,Tu%):Wn%+=Dl%*q%:zn%+=Xi%*q%:He%=((!((!e%)+(U%*4)))-zy%)/Xi%:!((!e%)+(U%*4))=zy%+(He%*Dl%):
:ly%=zy%+(x%*Dl%):
Dl%<Xi%
i((Dl%*x%)-(Xi%*x%))
&406C1:
Ry(w%)
r%:w%=(w%+3)
Zy(w%):
fJ%<>-1
B(fJ%,fJ%+w%,xJ%-fJ%):
Z%(r%)<>0
r%<=16:Z%(r%)+=w%:r%+=1:
fJ%<>-1
Z%(r%)<>0
r%<16:Z%(r%)+=w%:r%+=1:
B(fJ%,fJ%+w%,xJ%-fJ%)
Zy(w%)
fJ%<>-1
E<fJ%+=w%:xJ%+=w%:
1,"Graphs are not word alligned"
`y(w%)
mJ%,Ki%,v_%:v_%=w%-(zy%-Y_%):
v_%>0
ly%<=(zy%+v_%)
i(v_%):
B(zy%,zy%+v_%,ly%-zy%):
U%=(!e%)
(!e%)+((x%-1)*4)
4:!U%+=v_%:
:zy%+=v_%:ly%+=v_%
Ki%=(wy%+3)
3):mJ%=((v_%+(Ki%-1))
Ki%)*Ki%:
i(mJ%):
B(zy%,ly%,mJ%):
U%=(!e%)
(!e%)+((x%-1)*4)
!U%<=(zy%+v_%)
!U%+=ly%-zy%
:ly%+=mJ%:zy%+=mJ%
v_%<0
zy%>=(ly%+v_%)
B(zy%,zy%+v_%,ly%-zy%):
U%=(!e%)
(!e%)+((x%-1)*4)
4:!U%+=v_%:
:zy%+=v_%:ly%+=v_%:
i(v_%)
Ki%=((wy%+3)
3)):mJ%=-(v_%
Ki%)*Ki%:
mJ%>0
B(ly%-mJ%,zy%-mJ%,mJ%):
U%=(!e%)
(!e%)+((x%-1)*4)
!U%>=(zy%+v_%)
!U%-=ly%-zy%
:ly%-=mJ%:zy%-=mJ%:
i(-mJ%)
hy(M%,Cy%,Tk%)
L(0,Cy%):qu%+=Cy%:
M%<(R%-1)
B((_%!((M%+1)*4)),(_%!((M%+1)*4))+Cy%,qu%-(_%!((M%+1)*4))):
r%=M%+1
((R%*2)-1):_%!((r%+Tk%)*4)+=Cy%:
Ga(F_%,rO%,Q%)
B(F_%+(Q%*2),F_%+(Q%*2)+2,(x%*2)-(Q%*2)):F_%?(Q%*2)=rO%:F_%?((Q%*2)+1)=rO%>>8:
C_(F_%,`%,Q%)F_%?(Q%*2)=`%:F_%?((Q%*2)+1)=`%>>8:
l(F%,O%,Sy%,Gy%)
xO%,Mu%,Bu%:au%+=1:
((P%^2)>>1)<>0
&406C4,(au%*&2710)/((P%^2)>>1)
:Mu%=Sy%:Bu%=Gy%:xO%=!(
M(Sy%+((Gy%-Sy%)>>1),O%)+F%):
M(Sy%,O%)+F%)<xO%:Sy%+=1:
M(Gy%,O%)+F%)>xO%:Gy%-=1:
Sy%<=Gy%
O%?(Sy%*2),O%?(Gy%*2):
O%?((Sy%*2)+1),O%?((Gy%*2)+1):Sy%+=1:Gy%-=1
Sy%>Gy%:
Mu%<Gy%
l(F%,O%,Mu%,Gy%)
Sy%<Bu%
l(F%,O%,Sy%,Bu%)
o(F%,O%,Sy%,Gy%)
s_,Mu%,Bu%:au%+=1:
&406C4,(au%*&2710)/((P%^2)>>1):Mu%=Sy%:Bu%=Gy%:s_=|(
M(Sy%+((Gy%-Sy%)>>1),O%)+F%):
M(Sy%,O%)+F%)<s_:Sy%+=1:
M(Gy%,O%)+F%)>s_:Gy%-=1:
Sy%<=Gy%
O%?(Sy%*2),O%?(Gy%*2):
O%?((Sy%*2)+1),O%?((Gy%*2)+1):Sy%+=1:Gy%-=1
Sy%>Gy%:
Mu%<Gy%
o(F%,O%,Mu%,Gy%)
Sy%<Bu%
o(F%,O%,Sy%,Bu%)
Xy(F%,O%,Sy%,Gy%)
sy$,Mu%,Bu%:au%+=1:
&406C4,(au%*&2710)/((P%^2)>>1):Mu%=Sy%:Bu%=Gy%:sy$=$(
M(Sy%+((Gy%-Sy%)>>1),O%)+F%):
M(Sy%,O%)+F%),sy$)<0:Sy%+=1:
M(Gy%,O%)+F%),sy$)>0:Gy%-=1:
Sy%<=Gy%
O%?(Sy%*2),O%?(Gy%*2):
O%?((Sy%*2)+1),O%?((Gy%*2)+1):Sy%+=1:Gy%-=1
Sy%>Gy%:
Mu%<Gy%
Xy(F%,O%,Mu%,Gy%)
Sy%<Bu%
Xy(F%,O%,Sy%,Bu%)
h(M%,F%,O%,Sy%,Gy%)
x%<=1
GO%,oO%,sn%:sn%=
C($((S%!(M%*4))+281),$((S%!(M%*4))+294)):
sn%=-1
GO%=0:oO%=1
oO%=0:GO%=1
M(Sy%,O%)+F%))=GO%
Sy%<Gy%:Sy%+=1:
M(Gy%,O%)+F%))=oO%
Gy%>Sy%:Gy%-=1:
Sy%<Gy%
O%?(Sy%*2),O%?(Gy%*2):
O%?((Sy%*2)+1),O%?((Gy%*2)+1):Sy%+=1:Gy%-=1
Sy%>=Gy%:
sa(M%,Iy%,F%,O%,Sy%,Gy%)
Xy(F%,O%,Sy%,Gy%)
l(F%,O%,Sy%,Gy%)
o(F%,O%,Sy%,Gy%)
h(M%,F%,O%,Sy%,Gy%)
G_(Sy%,Gy%)
iO%,Mu%,Bu%,O%:au%+=1:
&406C0:
&406C4,(au%*&2710)/((P%^2)/2):O%=!b%:Mu%=Sy%:Bu%=Gy%:iO%=
M(Sy%+((Gy%-Sy%)/2),O%):
M(Sy%,O%),iO%)<0:Sy%+=1:
M(Gy%,O%),iO%)>0:Gy%-=1:
Sy%<=Gy%
O%?(Sy%*2),O%?(Gy%*2):
O%?((Sy%*2)+1),O%?((Gy%*2)+1):Sy%+=1:Gy%-=1
Sy%>Gy%:
Mu%<Gy%
G_(Mu%,Gy%)
Sy%<Bu%
G_(Sy%,Bu%)
&406C1:
l(O%,F%,M$,n%,m%)
S$,xy%,J`%,Uu%:xy%=((m%+n%)/2):p_%=m%-n%:J`%=n%:
xy%>=n%
xy%<=m%:S$=$(
M(xy%,O%)+F%):Uu%=
C(M$,S$):
Uu%=0
:=xy%
Uu%>0
n%=xy%+1
m%=xy%-1
:p_%=m%-n%:xy%=((m%+n%)/2):
:=xy%
`(O%,F%,M$,n%,m%)
S$,xy%,J`%:xy%=((m%+n%)/2):p_%=m%-n%:J`%=n%:
xy%>=n%
xy%<=m%:S$=$(
M(xy%,O%)+F%):
M$=S$
:=xy%
M$>S$
n%=xy%+1
m%=xy%-1
:p_%=m%-n%:xy%=((m%+n%)/2):
:=xy%
w_(O%,F%,M$,
k%,Ty%)
J_%,Hy%:J_%=k%:Hy%=
J_%>=0
M(J_%,O%)+F%),M$)=0
J_%-=1
:J_%+=1:Hy%=
M(k%,O%)+F%),M$)=0
k%+=1
(k%>Ty%)
Hy%):k%-=1:=J_%
k_(O%,F%,M$,
k%,Ty%)
J_%,Hy%:J_%=k%:Hy%=
J_%>=0
M(J_%,O%)+F%)=M$
J_%-=1
:J_%+=1:Hy%=
M(k%,O%)+F%)=M$
k%+=1
(k%>Ty%)
Hy%):k%-=1:=J_%
Y_(O%,F%,M$,n%,m%)
k%:k%=
l(O%,F%,M$,n%,m%):Hy%=
k%>=0
M(k%,O%)+F%),M$)>=0
k%-=1
O_(O%,F%,M$,n%,m%)
k%:k%=
`(O%,F%,M$,n%,m%):Hy%=
k%>=0
M(k%,O%)+F%)>=M$
k%-=1
u_(O%,F%,M$,n%,m%)
k%:k%=
l(O%,F%,M$,n%,m%):Hy%=
M(k%,O%)+F%),M$)=0
k%+=1
(k%>m%)
Hy%):=k%
b_(O%,F%,M$,n%,m%)
k%:k%=
`(O%,F%,M$,n%,m%):Hy%=
M(k%,O%)+F%)=M$
k%+=1
(k%>m%)
Hy%):=k%
i(O%,F%,F,n%,m%)
U_,xy%,J`%:xy%=((m%+n%)/2):p_%=m%-n%:J`%=n%:
xy%>=n%
xy%<=m%:U_=|(
M(xy%,O%)+F%):
:=xy%
n%=xy%+1
m%=xy%-1
:p_%=m%-n%:xy%=((m%+n%)/2):
:=xy%
s(O%,F%,`%,n%,m%)
sn%,xy%,J`%:xy%=((m%+n%)/2):p_%=m%-n%:J`%=n%:
xy%>=n%
xy%<=m%:sn%=!(
M(xy%,O%)+F%):
sn%=`%
:=xy%
`%>sn%
n%=xy%+1
m%=xy%-1
:p_%=m%-n%:xy%=((m%+n%)/2):
:=xy%
z_(O%,F%,F,
k%,Ty%)
J_%,Hy%:J_%=k%:Hy%=
J_%>=0
M(J_%,O%)+F%)=F
J_%-=1
:J_%+=1:Hy%=
M(k%,O%)+F%)=F
k%+=1
(k%>Ty%)
Hy%):k%-=1:=J_%
A_(O%,F%,F,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)=F
K%=Q%
Ny(O%,F%,F,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)<>F
K%=Q%
Wy(O%,F%,F,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)>=F
K%=Q%
y_(O%,F%,F,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)>=F
K%=Q%
Zy(O%,F%,F,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)>=F
K%=Q%
sy(O%,F%,F,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)<F
K%=Q%
Oy(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)=M$
K%=Q%
fy(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)<>M$
K%=Q%
ey(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)>=M$
K%=Q%
hy(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)>M$
K%=Q%
S_(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)<M$
K%=Q%
Ry(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)<=M$
K%=Q%
wy(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%),
(M$))=M$
K%=Q%
qy(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%),
(M$))<>M$
K%=Q%
Iy(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%),
(M$))=M$
K%=Q%
Uy(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%),
(M$))<>M$
K%=Q%
ry(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%),M$)
K%=Q%
iy(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%),M$)
K%=Q%
Q_(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%),M$)=0
K%=Q%
ny(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%),M$)<>0
K%=Q%
_y(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%),M$)>=0
K%=Q%
M_(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%),M$)>0
K%=Q%
H_(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%),M$)<0
K%=Q%
Ty(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%),M$)<=0
K%=Q%
Dy(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%),M$)
K%=Q%
oy(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%),M$)
K%=Q%
By(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%),M$)
K%=Q%
ly(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%),M$)
K%=Q%
uy(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%),M$)
K%=Q%
Ky(O%,F%,M$,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%),M$)
K%=Q%
yy(O%,F%,`%,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)=`%
! K%=Q%
U_(O%,F%,`%,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)<>`%
$ K%=Q%
Z_(O%,F%,`%,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)>=`%
' K%=Q%
ky(O%,F%,`%,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)<=`%
* K%=Q%
B_(O%,F%,`%,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)>`%
- K%=Q%
Cy(O%,F%,`%,c%,Ty%,q%)
Q%,K%:Q%=c%:K%=c%:
(K%=c%)
((Q%+q%)>=0)
((Q%+q%)<=Ty%):Q%+=q%:
M(Q%,O%)+F%)<`%
0 K%=Q%
o(O%,F%,`%,
k%,Ty%)
J_%,Hy%:J_%=k%:Hy%=
J_%>=0
M(J_%,O%)+F%)=`%
J_%-=1
:J_%+=1:Hy%=
M(k%,O%)+F%)=`%
6 k%+=1
(k%>Ty%)
Hy%):k%-=1:=J_%
z(O%,F%,`%,n%,m%)
k%:k%=
s(O%,F%,`%,n%,m%):Hy%=
k%>=0
M(k%,O%)+F%)>=`%
: k%-=1
x(O%,F%,F,n%,m%)
k%:k%=
i(O%,F%,F,n%,m%):Hy%=
k%>=0
M(k%,O%)+F%)>=F
> k%-=1
f_(O%,F%,F,n%,m%)
k%:k%=
i(O%,F%,F,n%,m%):Hy%=
M(k%,O%)+F%)=F
B k%+=1
(k%>m%)
Hy%):=k%
l_(O%,F%,`%,n%,m%)
k%,Hy%:k%=
s(O%,F%,`%,n%,m%):Hy%=
M(k%,O%)+F%)=`%
F k%+=1
(k%>m%)
Hy%):=k%
Py(M%,Ml%,Tk%,LZ%)
Iy%,H`%,G%,F%,R_%,n%,m%,p_%:R_%=_%!((M%+Tk%)*4):Iy%=?((S%!(M%*4))+277):F%=
F(M%):n%=0:m%=LZ%-1:H`%=
M(Ml%,R_%):G%=0:p_%=m%-n%:
p_%>=1:p_%=m%-n%:
n%<=Ml%
m%>=Ml%
p_%-=1
:G%=n%+(p_%/2):
G%=Ml%
L G%+=1
G_(Iy%,H`%+F%,
M(G%,R_%)+F%,M%)<0
N m%=G%
n%=G%+1
jJ(Ml%,n%,R_%):
R_(Ml%)
p_%,H`%,G%,R_%,n%,m%:R_%=!b%:n%=0:m%=P%-1:H`%=
M(Ml%,R_%):G%=0:p_%=m%-n%:
p_%>=1:p_%=m%-n%:
n%<=Ml%
m%>=Ml%
p_%-=1
:G%=n%+(p_%/2):
G%=Ml%
T G%+=1
h(H`%,
M(G%,R_%))<0
V m%=G%
n%=G%+1
jJ(Ml%,n%,R_%):=n%
jJ(ra%,zl%,F_%)
F`%:F`%=(F_%!(ra%*2)):
zl%>ra%
B(F_%+(ra%*2)+2,F_%+(ra%*2),(zl%-ra%-1)*2):F_%?((zl%-1)*2)=F`%
&FF:F_%?(((zl%-1)*2)+1)=F`%>>8
B(F_%+(zl%*2),F_%+(zl%*2)+2,(ra%-zl%)*2):F_%?(zl%*2)=F`%:F_%?((zl%*2)+1)=F`%>>8
G_(Iy%,li%,Ma%,M%)
C$,X$:
C($li%,$Ma%)
(!li%)>(!Ma%)
(!li%)=(!Ma%)
(|li%)>(|Ma%)
(|li%)=(|Ma%)
?li%=?Ma%
(?li%=0)
p/C$=$((S%!(M%*4))+281):X$=$((S%!(M%*4))+294)
X$=$((S%!(M%*4))+281):C$=$((S%!(M%*4))+294)
C(C$,X$)
1,"Invalid field type"
h(BZ%,sr%)
Uu%,`i%,F%:`i%=l_%:Uu%=0:
Uu%=0
?`i%<>&FF:F%=!((S%!((?`i%)*4))+4):Uu%=
G_(?((S%!((?`i%)*4))+277),F%+BZ%,F%+sr%,?`i%):
Uu%<>0
(`i%?1)=1
Uu%=-Uu%
:`i%+=2:
:=Uu%
C(C$,X$)
Uu%:oy%=1:
oy%<=
C$,oy%,1)=
X$,oy%,1)):oy%+=1:
C$,oy%)):B%=
X$,oy%)):
A%>B%
A%<B%
&4305D,-1,C$+
(0),X$+
(0),3
Uu%:=Uu%
g_(C$,X$)
A%,B%:$Hr%=C$+
(1):$sB%=X$+
(1):A%=Hr%:B%=sB%:=
(no%)
c(C$,X$)
M_%,G_%,K_%,z_%,zJ%:M_%=1:G_%=1:
C$,M_%,1))
(K_%>=65
K_%<=90)
zJ%=
(K_%>=16
K_%<=25)
((K_%=&D
K_%=&E)
C$,M_%+1,1))>=48
C$,M_%+1,1))<=57))
(K_%=&D
C$,M_%+1,1))=46)
zJ%=
:M_%+=1:
M_%>=
zJ%:z_%=
X$,G_%,1)):G_%+=1:
K_%<>z_%:=(K_%=z_%)
(G_%>
(X$))
y%,Lu%,hy$,Xy$,Ly$:hy$="-._0123456789":y%=1:Xy$="":Ly$="":
(F$):Lu%=
F$,y%,1))
(Lu%>=65
Lu%<=90)
Xy$+=
(Lu%):Ly$+=
(Lu%)
(Lu%>=16
Lu%<=25)
((Lu%=&D
Lu%=&E)
F$,y%+1,1))>=48
F$,y%+1,1))<=57))
(Lu%=&D
F$,y%+1,1))=46)
#Xy$+=
hy$,Lu%-&C,1):Ly$+=
(Lu%)
:F$=Xy$:=Ly$
r(C$,X$)
M_%,G_%,K_%,z_%,zJ%:M_%=
(C$):G_%=
(X$):
C$,M_%,1))
(K_%>=65
K_%<=90)
zJ%=
(K_%>=16
K_%<=25)
((K_%=&D
K_%=&E)
C$,M_%+1,1))>=48
C$,M_%+1,1))<=57))
(K_%=&D
C$,M_%+1,1))=46)
zJ%=
:M_%-=1:
M_%<=0
X$,G_%,1))
(z_%>=65
z_%<=90)
zJ%=
(z_%>=16
z_%<=25)
((z_%=&D
z_%=&E)
X$,G_%+1,1))>=48
X$,G_%+1,1))<=57))
(z_%=&D
X$,G_%+1,1))=46)
zJ%=
:G_%-=1:
G_%<=0
K_%<>z_%
M_%<=0
G_%<=0:
K_%<>z_%
M_%<=0
G_%>0
M_%<=0
G_%<=0
M_%<=0
G_%<=0
e(X$,C$)
M_%,G_%,K_%,z_%,zJ%:M_%=1:G_%=1:
:K_%=
C$,M_%,1)):
X$,G_%,1))
(z_%>=65
z_%<=90)
zJ%=
(z_%>=16
z_%<=25)
((z_%=&D
z_%=&E)
X$,G_%+1,1))>=48
X$,G_%+1,1))<=57))
(z_%=&D
X$,G_%+1,1))=46)
zJ%=
:G_%+=1:
G_%>=
K_%=z_%
M_%+=1
M_%=1
(X$):
Vy(Oy%,Iy%,Cy%)$(Oy%+8)=
Z(A%(21),21):$(Oy%+21)=
Z(A%(21),Ly):Oy%?277=Iy%
&FF:Oy%?(277+1)=(Iy%>>8)
&FF:Oy%?280=&FF:!Oy%=Cy%:
Dy(U_%,Cy%)
Au%,r%,sy%,cu%,yJ%:
x%>=&FF
sy%=(((x%*2)+&3FF)
&3FF)
sy%=&400
L(0,2*sy%):
`y(Cy%):
U_%<(R%-1)
B(S%!((U_%+1)*4),(S%!((U_%+1)*4))+Cy%,Y_%-(S%!((U_%+1)*4))):cu%=_%!((U_%+1)*4):yJ%=Ky%!((U_%+1)*4):
B(yJ%,yJ%+(2*sy%),qu%-yJ%):
B(cu%,cu%+sy%,yJ%-cu%):yJ%+=sy%:
x%-1:cu%?0=r%
&FF:cu%?1=r%>>8:cu%+=2:yJ%?0=r%
&FF:yJ%?1=r%>>8:yJ%+=2:
Au%=0
U_%:Ky%!(Au%*4)+=sy%:
Au%=R%-1
U_%+1
-1:S%!((Au%+1)*4)=(S%!(Au%*4))+Cy%:_%!((Au%+1)*4)=(_%!(Au%*4))+sy%:Ky%!((Au%+1)*4)=(Ky%!(Au%*4))+(2*sy%):
:Oy%=S%!((U_%+1)*4)
_%!(R%*4)=Ky%!0:Ky%!(R%*4)=qu%+sy%:
B(Ky%!0,(Ky%!0)+sy%,qu%-(Ky%!0)):
R%-1:Ky%!(M%*4)+=sy%:
mcu%=_%!(R%*4):yJ%=Ky%!(R%*4):
x%-1:cu%?0=r%
&FF:cu%?1=r%>>8:cu%+=2:yJ%?0=r%
&FF:yJ%?1=r%>>8:yJ%+=2:
:Oy%=Y_%:S%!(R%*4)=Y_%
_%!0=qu%:Ky%!0=qu%+sy%:S%!0=Y_%:Oy%=Y_%
:Y_%+=Cy%:qu%+=(2*sy%):
Vy(S%!(T%*4),NJ%,nn%):
m:Vu%=
T%=i%
Wl%=NJ%:
Wl%=3
Ay(A%(7),Zy%):Zy%=-1:i%=-1
J(A%(21))
T%=s_%
s_%=-1:
__(T%)
Hy(T%):
Vn%,nn%,NJ%:
RJ:Vn%=?((S%!(T%*4))+277):
eJ:nn%=604:NJ%=
Z(A%(21),x))<<8:?((S%!(T%*4))+279)=
S(A%(21),f)
JJ:nn%=308:NJ%=3:
S(A%(21),m)
NJ%+=1<<8
ay:nn%=316:NJ%=2+((
S(A%(21),X)
1)<<8):NJ%+=((
S(A%(21),L)
2)<<8):
ay:nn%=316:NJ%=1+((
S(A%(21),X)
1)<<8):NJ%+=((
S(A%(21),L)
2)<<8):
`%,w%,W_%,U%:W_%=5:
L(T%+1,604-316):
F(T%):
x%-1:`%=
(!((!((!e%)+(U%*4)))+w%))):
`%>=W_%
W_%=`%+1
V(T%,4,W_%):w%=
F(T%):
x%-1:$((!((!e%)+(U%*4)))+w%)=
(!((!((!e%)+(U%*4)))+w%)):
:NJ%=(W_%-1)<<8:?((S%!(T%*4))+279)=
S(A%(21),f)
f(S%!(T%*4),k_%):
Dr%,U%,w%:!((S%!(T%*4))+281)=
Z(A%(21),G)):!((S%!(T%*4))+285)=
Z(A%(21),Q)):?((S%!(T%*4))+278)=
S(A%(21),X)
1:?((S%!(T%*4))+278)+=
S(A%(21),L)
2:$((S%!(T%*4))+301)=
Z(A%(21),R):$((S%!(T%*4))+289)=
Z(A%(21),Y)
?((S%!(T%*4))+279)<>
Z(A%(21),H))
VDr%=
Z(A%(21),H))-(?((S%!(T%*4))+279)):?((S%!(T%*4))+279)=
Z(A%(21),H)):
F(T%):
x%-1:!((!((!e%)+(U%*4)))+w%)=(!((!((!e%)+(U%*4)))+w%))*(&A^Dr%):
w%,U%,SJ%:
F(T%):
V(T%,4,5):SJ%=&A^(?((S%!(T%*4))+279)):
x%-1:|((!((!e%)+(U%*4)))+w%)=(!((!((!e%)+(U%*4)))+w%))/SJ%:
:|((S%!(T%*4))+281)=
Z(A%(21),G)):|((S%!(T%*4))+286)=
Z(A%(21),Q)):?((S%!(T%*4))+278)=
S(A%(21),X)
1:?((S%!(T%*4))+278)+=
S(A%(21),L)
2:$((S%!(T%*4))+303)=
Z(A%(21),R):$((S%!(T%*4))+291)=
Z(A%(21),Y):
Sy,`:H$=
A("Cov"):L$=
A("Can"):TJ%=
:TZ%=
Z(A%(21),a)):RZ%=
Z(A%(21),z)):
A("NaN")
(?NJ%)
Z(A%(21),z)
Z(A%(21),a)
A("StB")
L(T%+1,308-316):$((S%!(T%*4))+281)=
Z(A%(21),a):$((S%!(T%*4))+294)=
Z(A%(21),z)
_y$,wy$,w%,W_%,U%:_y$=$((S%!(T%*4))+281):wy$=$((S%!(T%*4))+294):W_%=
(_y$):QO%=
(wy$):
QO%>W_%
W_%=QO%
:W_%+=1:
L(T%+1,604-308):
V(T%,1,W_%):w%=
F(T%):
x%-1:
?((!((!e%)+(U%*4)))+w%)
$((!((!e%)+(U%*4)))+w%)=wy$
$((!((!e%)+(U%*4)))+w%)=_y$
:NJ%=(W_%-1)<<8:?((S%!(T%*4))+279)=
S(A%(21),f)
f(S%!(T%*4),k_%):
uJ(M%)
Sy,`,w%,U%,SJ%:Sy=
J($((S%!(M%*4))+281)):`=
J($((S%!(M%*4))+294)):
L(M%+1,316-308):
V(M%,1,4):SJ%=&A^
Z(A%(21),H)):w%=
F(M%):
x%-1:
?((!((!e%)+(U%*4)))+w%)
!!((!((!e%)+(U%*4)))+w%)=`*SJ%
!((!((!e%)+(U%*4)))+w%)=Sy*SJ%
:!((S%!(T%*4))+281)=
Z(A%(21),G)):!((S%!(T%*4))+285)=
Z(A%(21),Q)):?((S%!(T%*4))+279)=
Z(A%(21),H)):?((S%!(T%*4))+278)=
S(A%(21),X)
1:?((S%!(T%*4))+278)=
S(A%(21),L)
2:$((S%!(T%*4))+301)=
Z(A%(21),R):$((S%!(T%*4))+289)=
Z(A%(21),Y)
l(w%,_%!(M%*4),0,P%-1):
l(w%,Ky%!(M%*4),0,x%-1):
qJ(M%)
Sy,`,w%,U%:Sy=
J($((S%!(M%*4))+281)):`=
J($((S%!(M%*4))+294)):
L(M%+1,316-308):
V(M%,1,5):w%=
F(M%):
x%-1:
?((!((!e%)+(U%*4)))+w%)
|((!((!e%)+(U%*4)))+w%)=`
|((!((!e%)+(U%*4)))+w%)=Sy
:|((S%!(T%*4))+281)=
Z(A%(21),G)):|((S%!(T%*4))+286)=
Z(A%(21),Q)):?((S%!(T%*4))+278)=
S(A%(21),X)
1:?((S%!(T%*4))+278)=
S(A%(21),L)
2:$((S%!(T%*4))+303)=
Z(A%(21),R):$((S%!(T%*4))+291)=
Z(A%(21),Y):
o(w%,_%!(M%*4),0,P%-1)
o(w%,Ky%!(M%*4),0,x%-1):
Sy,`:TJ%=
J($((S%!(T%*4))+281)):`=
J($((S%!(T%*4))+294)):
A("Cov"):L$=
A("Can"):
A("EqN")
A("Cov"):L$=
A("Can"):
A("NaN")
uJ(T%)
L(T%+1,316-308):!((S%!(T%*4))+281)=
Z(A%(21),G)):!((S%!(T%*4))+285)=
Z(A%(21),Q)):?((S%!(T%*4))+279)=
Z(A%(21),H)):?((S%!(T%*4))+278)=
S(A%(21),X)
1:?((S%!(T%*4))+278)=
S(A%(21),L)
2:$((S%!(T%*4))+301)=
Z(A%(21),R)
#$((S%!(T%*4))+289)=
Z(A%(21),Y)
Sy,`:TJ%=
J($((S%!(T%*4))+281)):`=
J($((S%!(T%*4))+294)):
A("Cov"):L$=
A("Can"):
A("NaN")
qJ(T%)
L(T%+1,316-308):|((S%!(T%*4))+281)=
Z(A%(21),G)):|((S%!(T%*4))+286)=
Z(A%(21),Q)):?((S%!(T%*4))+278)=
S(A%(21),X)
1:?((S%!(T%*4))+278)=
S(A%(21),L)
2:$((S%!(T%*4))+303)=
Z(A%(21),R):$((S%!(T%*4))+291)=
Z(A%(21),Y)
zu$((S%!(T%*4))+281)=
Z(A%(21),a):$((S%!(T%*4))+294)=
Z(A%(21),z):
h(T%,
F(T%),_%!(T%*4),0,P%-1):
h(T%,
F(T%),Ky%!(T%*4),0,x%-1)
w%,W_%,U%,Cy%:w%=
F(T%):W_%=5:
x%-1:Cy%=
(|((!((!e%)+(U%*4)))+w%))):
Cy%>=W_%
W_%=Cy%+1
V(T%,5,W_%):w%=
F(T%):
x%-1:$((!((!e%)+(U%*4)))+w%)=
(|((!((!e%)+(U%*4)))+w%)):
L(T%+1,604-308):?((S%!(T%*4))+279)=
S(A%(21),f)
1:NJ%=(W_%-1)<<8:
f(S%!(T%*4),k_%):
&+H$=
A("Cov"):L$=
A("Can"):
A("R_I")
!((S%!(T%*4))+281)=
Z(A%(21),G)):!((S%!(T%*4))+285)=
Z(A%(21),Q)):?((S%!(T%*4))+279)=
Z(A%(21),H)):?((S%!(T%*4))+278)=
S(A%(21),X)
1:?((S%!(T%*4))+278)+=
S(A%(21),L)
2:$((S%!(T%*4))+301)=
Z(A%(21),R):$((S%!(T%*4))+289)=
Z(A%(21),Y)
Wu(M%)
w%,U%,my%,Tu%,SJ%:SJ%=&A^
Z(A%(21),H)):w%=
F(M%):
x%-1:!((!((!e%)+(U%*4)))+w%)=(|((!((!e%)+(U%*4)))+w%))*SJ%:
V(M%,5,4):!((S%!(T%*4))+281)=
Z(A%(21),G)):!((S%!(T%*4))+285)=
Z(A%(21),Q)):?((S%!(T%*4))+279)=
Z(A%(21),H))
?((S%!(T%*4))+278)=
S(A%(21),X)
1:?((S%!(T%*4))+278)+=
S(A%(21),L)
2:$((S%!(T%*4))+301)=
Z(A%(21),R):$((S%!(T%*4))+289)=
Z(A%(21),Y):
Cl|((S%!(T%*4))+281)=
Z(A%(21),G)):|((S%!(T%*4))+286)=
Z(A%(21),Q)):?((S%!(T%*4))+278)=
S(A%(21),X)
1:?((S%!(T%*4))+278)+=
S(A%(21),L)
2:$((S%!(T%*4))+303)=
Z(A%(21),R):$((S%!(T%*4))+291)=
Z(A%(21),Y):
Sy,`:H$=
A("Cov"):L$=
A("Can"):TJ%=
Z(A%(21),a)):`=
Z(A%(21),z)):
A("NaN")
(?NJ%)
Z(A%(21),z)
Z(A%(21),a)
A("StB")
L(T%+1,308-316):$((S%!(T%*4))+281)=
Z(A%(21),a):$((S%!(T%*4))+294)=
Z(A%(21),z)
cu(M%)
F,w%,U%:
(?NJ%)
J($((S%!(M%*4))+281))
J($((S%!(M%*4))+294))
F(M%):
x%-1:
|((!((!e%)+(U%*4)))+w%)=F
?((!((!e%)+(U%*4)))+w%)=1
?((!((!e%)+(U%*4)))+w%)=0
V(M%,5,1):
L(M%+1,308-316):$((S%!(M%*4))+281)=
Z(A%(21),a):$((S%!(M%*4))+294)=
Z(A%(21),z):
h(M%,w%,_%!(M%*4),0,P%-1):
h(M%,w%,Ky%!(M%*4),0,x%-1):
ei(M%)
w%,U%,F,SJ%:
(?NJ%)
Z(A%(21),a))
Z(A%(21),z))
:SJ%=&A^?((S%!(M%*4))+279):w%=
F(M%):
x%-1:
(!((!((!e%)+(U%*4)))+w%))/SJ%=F
?((!((!e%)+(U%*4)))+w%)=1
?((!((!e%)+(U%*4)))+w%)=0
V(M%,4,1):
L(M%+1,308-316):$((S%!(M%*4))+281)=
Z(A%(21),a):$((S%!(M%*4))+294)=
Z(A%(21),z):
h(M%,w%,_%!(M%*4),0,P%-1):
h(M%,w%,Ky%!(M%*4),0,x%-1):
f(S%!(T%*4),k_%):ca%=
Z(A%(21),x)):?((S%!(T%*4))+279)=
S(A%(21),f)
ca%<(?((S%!(T%*4))+278))
dy(T%)
F+H$=
A("Trn"):L$=
A("Can"):
A("StT")
ca%<>(?((S%!(T%*4))+278))
fy(T%,ca%)
fy(M%,ZJ%)
en%,dk%:
MEen%=(?((S%!(M%*4))+278))+1:dk%=
Qy(M%):
V(M%,en%,ZJ%+1):
dk%>ZJ%
U%,my%,w%:w%=
F(M%):my%=w%+ZJ%:
x%-1:?((!((!e%)+(U%*4)))+my%)=&D:
:?((S%!(M%*4))+278)=ZJ%:
Xy(w%,_%!(M%*4),0,P%-1):
Xy(w%,Ky%!(M%*4),0,x%-1)
?((S%!(M%*4))+278)=ZJ%
?((S%!(M%*4))+278)=ZJ%
J(F$)
y%,Dy$,Cy%:y%=0:Cy%=
(F$):
y%+=1:Dy$=
F$,y%,1):
"0123456789-.",Dy$)
F$,y%))
y%=Cy%:TJ%=
W+H$=
A("Cov"):L$=
A("Can"):
A("CNS")
L(T%+1,316-604):!((S%!(T%*4))+281)=
Z(A%(21),G)):!((S%!(T%*4))+285)=
Z(A%(21),Q)):?((S%!(T%*4))+279)=
Z(A%(21),H)):?((S%!(T%*4))+278)=
S(A%(21),X)
1:?((S%!(T%*4))+278)=
S(A%(21),L)
2:$((S%!(T%*4))+301)=
Z(A%(21),R)
Y#$((S%!(T%*4))+289)=
Z(A%(21),Y)
\+H$=
A("Cov"):L$=
A("Can"):
A("CNS")
L(T%+1,316-604):|((S%!(T%*4))+281)=
Z(A%(21),G)):|((S%!(T%*4))+286)=
Z(A%(21),Q)):?((S%!(T%*4))+278)=
S(A%(21),X)
1:?((S%!(T%*4))+278)=
S(A%(21),L)
2:$((S%!(T%*4))+303)=
Z(A%(21),R):$((S%!(T%*4))+291)=
Z(A%(21),Y)
kl(M%)
W_%,w%,U%,Ly%:Ly%=&A^
Z(A%(21),H)):W_%=(?((S%!(M%*4))+278))+1:w%=
F(M%):
W_%<4
V(M%,W_%,4):
x%-1:!((!((!e%)+(U%*4)))+w%)=
J($((!((!e%)+(U%*4)))+w%))*Ly%:
x%-1:!((!((!e%)+(U%*4)))+w%)=
J($((!((!e%)+(U%*4)))+w%))*Ly%:
V(M%,W_%,4)
L(M%+1,316-604):!((S%!(M%*4))+281)=
Z(A%(21),G)):!((S%!(M%*4))+285)=
Z(A%(21),Q)):?((S%!(M%*4))+279)=
Z(A%(21),H)):?((S%!(M%*4))+278)=
S(A%(21),X)
1:?((S%!(M%*4))+278)=
S(A%(21),L)
2:$((S%!(M%*4))+301)=
Z(A%(21),R)
cV$((S%!(M%*4))+289)=
Z(A%(21),Y):
l(w%,_%!(M%*4),0,P%-1):
l(w%,Ky%!(M%*4),0,x%-1):
si(M%)W_%=(?((S%!(T%*4))+278))+1:w%=
F(M%):
W_%<5
V(M%,W_%,5):
x%-1:|((!((!e%)+(U%*4)))+w%)=
J($((!((!e%)+(U%*4)))+w%)):
x%-1:|((!((!e%)+(U%*4)))+w%)=
J($((!((!e%)+(U%*4)))+w%)):
V(M%,W_%,5)
L(M%+1,316-604):|((S%!(M%*4))+281)=
Z(A%(21),G)):|((S%!(M%*4))+286)=
Z(A%(21),Q)):?((S%!(M%*4))+278)=
S(A%(21),X)
1:?((S%!(M%*4))+278)=
S(A%(21),L)
2:$((S%!(M%*4))+303)=
Z(A%(21),R):$((S%!(M%*4))+291)=
Z(A%(21),Y):
o(w%,_%!(M%*4),0,P%-1)
o(w%,Ky%!(M%*4),0,x%-1):
Ol:p$=
Z(A%(21),a):`$=
Z(A%(21),z):
(?NJ%)
k J$=`$
J$=p$
A("Con"):L$=
A("Can"):
A("StB")
L(T%+1,308-604):$((S%!(T%*4))+281)=p$:$((S%!(T%*4))+294)=`$
Hl(M%)
w%,U%:w%=
F(M%):
x%-1:?((!((!e%)+(U%*4)))+w%)=
C($((!((!e%)+(U%*4)))+w%),p$):
V(M%,(?((S%!(M%*4))+278))+1,1):
L(M%+1,308-604):$((S%!(M%*4))+281)=p$:$((S%!(M%*4))+294)=`$:
h(M%,w%,_%!(M%*4),0,P%-1):
h(M%,w%,Ky%!(M%*4),0,x%-1):
V(M%,en%,YZ%)
my%,vi%,GB%:vi%=YZ%-en%:
vi%>0
GB%=vi%:my%=
F(M%)+en%
GB%=0:my%=
F(M%)+en%+vi%
M%<R%-1
w%:w%=
F(M%+1):
By(my%,GB%,w%,wy%-w%)
By(my%,GB%,0,0)
:wy%+=vi%:
Oy%,q$,T%:
&406C0:q$=
Z(A%(31),1):
q$=""
A("FlB")
j(q$)<>-1
A("Exi")
T%=R%-1
Zy%<>-1
Ay(A%(7),Zy%):Zy%=-1
Ty(T%,
A("StringMax"))+1):wy%+=
A("StringMax"))+1:
Dy(T%,604):!Oy%=604:$(Oy%+8)=q$:$(Oy%+21)="":Oy%?280=&FF:Oy%?277=0:Oy%?278=
A("StringMax")):Oy%?279=(
A("StringMaxFlag"))<>0)
f(Oy%,k_%):
F(T%)+
O(T%):
x%-1:$((!((!e%)+(r%*4)))+F%)="":
J(A%(31))
A(A%(31),1,
A("NeF")+
(R%))
Oy%,Iy%,x$,Gl%,Xe%,pB%:
&406C0:
T%=R%-1
Zy%<>-1
Ay(A%(7),Zy%):Zy%=-1
Ty(T%,
Z(A%(21),x))+1):wy%+=
Z(A%(21),x))+1:
Dy(T%,604):Iy%=
Z(A%(21),x))<<8:
Vy(Oy%,Iy%,604):Oy%?279=
S(A%(21),f)
f(Oy%,k_%):
F(T%)+
O(T%):
x%-1:$((!((!e%)+(r%*4)))+F%)="":
Ty(T%,4):wy%+=4:
Dy(T%,316):
Vy(Oy%,1,316):
F(T%)+
O(T%):
x%-1:!((!((!e%)+(r%*4)))+F%)=0:
:Oy%!281=
Z(A%(21),G)):Oy%!285=
Z(A%(21),Q)):Oy%?279=
Z(A%(21),H)):Oy%?278=
S(A%(21),X)
1:$(Oy%+301)=
Z(A%(21),R):$(Oy%+289)=
Z(A%(21),Y):Oy%?278+=
S(A%(21),L)
Ty(T%,1):wy%+=1:
Dy(T%,308):Iy%=3:
S(A%(21),m)
Iy%+=1<<8:jo%=1
Vy(Oy%,Iy%,308):$(Oy%+281)=
Z(A%(21),a):$(Oy%+294)=
Z(A%(21),z):
F(T%)+
O(T%):
x%-1:?((!((!e%)+(r%*4)))+F%)=jo%:
Ty(T%,5):wy%+=5:
Dy(T%,316):
Vy(Oy%,2,316):
F(T%)+
O(T%):
x%-1:|((!((!e%)+(r%*4)))+F%)=0:
:|(Oy%+281)=
Z(A%(21),G)):|(Oy%+286)=
Z(A%(21),Q)):$(Oy%+303)=
Z(A%(21),R):$(Oy%+291)=
Z(A%(21),Y):Oy%?278=
S(A%(21),X)
1:Oy%?278+=
S(A%(21),L)
J(A%(21))
A(A%(21),21,
A("NeF")+
(R%))
KJ:R%+=1:iJ%+=1:
K$si%="R2;Sascending":l_%?0=0:l_%?1=0:l_%?2=&FF:
A(A%(&D),6,$(Oy%+8)):
S(A%(&D),7)
:cy%+=60:
Ba(T%)
Di(T%)
:Vu%=
&406C1:
S_:aa%=
$:n_%=
:Wu%=
f(Oy%,k_%)
x$,oy%,h$,r%:x$="KTARN;Pptr_write;F0d;A":h$="":oy%=32:
Gl%=0
30:pB%=k_%?Gl%:
Xe%=0
(1<<Xe%))>0
"-;\~",
(oy%))>0
h$+="\"+
(oy%)
(oy%)
:oy%+=1:
,:Gl%=
h$,r%,1)):x$+=
(h$):
h$,r%,1))=Gl%+1)
"-;\~ ",
Gl%)=0)
Gl%+=1:
x$)<>"-"
x$+="-"
x$)="-"
x$,2)<>"\-"
:x$+=
h$,r%,1):Gl%=
h$,r%,1))
x$)="-"
x$,2)<>"\-"
:$(Oy%+281)=x$:
B(k_%,Oy%+537,64):
Q(X%,Y%)
M%,vu%:
ma%<>A%(7)
t%=-1:tu%=
:!L%=A%(7):
&400CB,,L%:X%=((L%!20)-(L%!4))+X%:Y%=-(((L%!24)-(L%!16))+Y%):Y%-=46:t%=Y%
cy%:M%=(Y%
t%>P%
t%=P%
iJ%>0
:vu%=-1:
e_%=0
R%-1:
((!((S%!(e_%*4))+277))
-&1000000)
vu%+=1:
vu%=M%
M%=-e_%
M%=0:tu%=
M%=0:tu%=
x_(M%)
vu%:vu%=-1:
e_%=0
(?((S%!(e_%*4))+280))
vu%+=1
:=vu%
Xa(U%)
M%,Xy%,Iy%,n%,m%,vu%:Ga%!0=&C:Ga%!4=-((U%*cJ%)+cJ%-&C):Ga%!8=UJ%-&C:Ga%!&C=-((U%*cJ%)+&C):
&400E2,,Ga%:w_%!&C=-((U%*cJ%)+20):w_%!4=-((U%*cJ%)+52):
$(w_%!20)=
A("MCk"),w_%!28)
$(w_%!20)=
A("NDa"),w_%!28)
$(w_%!20)=
A("QNR"),w_%!28)
U%=ty%
$(w_%!20)=
A("SpR"),w_%!28)
U%>ty%
$(w_%!20)=
$(w_%!20)=
(U%+1)
&400E2,,w_%:
iJ%>0
-cJ%)=U%
&n%=(((Ra%
-cJ%)+42)
-60):
n%>=iJ%
-cJ%)=U%
-m%=(((wa%
-cJ%)+42)
-60):
m%>=iJ%
m%=R%-1
m%=R%-1
:Xy%=((-((U%*cJ%)+42))-8)-n%*60:vu%=-1:
R%-1:
((!((S%!(M%*4))+277))
-&1000000)
vu%+=1:
vu%=n%
n%=-M%
vu%=m%
m%=-M%
(m%):Iy%=!((S%!(M%*4))+277):
-&1000000)
pJ(Xy%,M%):
Ci(Xy%,M%,U%)
Oi(Xy%,M%,U%)
lJ(Xy%,M%,U%)
Ca(Xy%,M%,U%)
Xy%,M%,U%)
Qy%,M$:M$=
r_(M%,U%):
((Iy%>>16)
DQy%=&C+S_%+4+
R(M$+
((Iy%>>8)
&FF)-
(M$),"A"))+18:
Qy%>(UJ%-20)
Qy%=(UJ%-20)
Qy%=(UJ%-20)
:ry%!0=(&C+(S_%))+4:ry%!4=Xy%-52:ry%!8=Qy%:ry%!&C=Xy%:ry%!20=wo%:$(ry%!20)=M$:
&400E2,,ry%:Xy%-=60:
pJ(Xy%,M%)bJ%!0=&C:bJ%!&C=Xy%-8:bJ%!8=&C+(S_%):bJ%!4=Xy%-8-36:$(bJ%!20)=$((S%!(M%*4))+8):
&400E2,,bJ%:
Jl(Xy%,M%,U%)
Fy%,hy%,Qy%,M$:qy%!0=A%(7):qy%!4=(&C+(S_%))+4:qy%!8=Xy%-52:qy%!16=Xy%:
U%=ty%
qy%!24=Ka%:$Ka%=""
L(U%):hy%=
F(M%)+Fy%:$Ka%=$hy%:qy%!24=Ka%
:M$=$(qy%!24):
((?((S%!(M%*4))+279))
JQy%=&C+S_%+4+
R(M$+
(?((S%!(M%*4))+278))-
(M$),"A"))+18:
Qy%>(UJ%-20)
Qy%=(UJ%-20)
:qy%!32=(?((S%!(M%*4))+278))+1
Qy%=(UJ%-20):qy%!32=&FF
:qy%!&C=Qy%:qy%!28=((S%!(M%*4))+281):
&400C2,Zy%,qy%
Jy%,M%)
(X_%<>256)
(((?((S%!(M%*4))+279))
1)=1)
m_%,in%:J%!0=A%(7):J%!4=Jy%:
&400D3,,J%:m_%=J%!20:
&400CE,,J%:in%=J%!16:M$=$(J%!28):Qy%=((&C+(S_%))+4)+(
R(M$+
(?((S%!(M%*4))+278))-
(M$),"A")))+18:
Qy%>(UJ%-20)
Qy%=(UJ%-20)
in%<>Qy%
&400C4,,J%:J%!16=Qy%:J%!4=A%(7):
&400C2,Jy%,J%+4
in%<Qy%
J%!8=in%-2:J%!16=Qy%+2
J%!8=Qy%-2:J%!16=in%+2
&400C9,,J%+4
&400E6,1:
J%!32,J%!36,(J%!40)-(J%!32),(J%!44)-(J%!36):
&400CA,,J%+4
&400D2,A%(7),Jy%,,,-1,m_%
t%=ty%
&406C0:
DJ:ty%=P%:
&406C1
Xy%,M%,U%)ry%!0=(&C+S_%)+4:ry%!4=Xy%-52:ry%!8=((&C+S_%)+4)+18+
__(M%):ry%!&C=Xy%:
(?((S%!(M%*4))+278)
A$(ry%!20)=$((S%!(M%*4))+289)+
n(M%,U%)+" "+$((S%!(M%*4))+301)
$(ry%!20)=
n(M%,U%)
&400E2,,ry%:Xy%-=60:
Ki(Xy%,M%,U%)qy%!0=A%(7):qy%!4=(&C+S_%)+4:qy%!8=Xy%-52:qy%!&C=((&C+S_%)+4)+18:qy%!16=Xy%:qy%!24=Ka%:qy%!28=m`%:qy%!32=
e_(M%,qy%!&C):$(qy%!24)=
n(M%,U%):
&400C2,Zy%,qy%
e_(M%,
my%,Tu%,ui%:ui%=?((S%!(M%*4))+279):my%=
(!((S%!(M%*4))+281))):Tu%=
(!((S%!(M%*4))+285))):
Tu%>my%
my%,Tu%
my%+=(ui%+1)
:Qy%+=(my%*dl%):
(?((S%!(M%*4))+278)
6Qy%+=
R($((S%!(M%*4))+289)+" "+$((S%!(M%*4))+301))
(?((S%!(M%*4))+278)
=my%+1
__(M%)
my%,Tu%,ui%:ui%=?((S%!(M%*4))+279):my%=
(!((S%!(M%*4))+281))):Tu%=
(!((S%!(M%*4))+285))):
Tu%>my%
my%,Tu%
my%+=(ui%+1)
(?((S%!(M%*4))+278)
+<=(my%*dl%)+
R($((S%!(M%*4))+289)+" "+$((S%!(M%*4))+301))
:=(my%*dl%)
Xy%,M%,U%)
X%,Y%,z$,Y$:ry%!-4=A%(7):ry%!0=&C+S_%+4:ry%!&C=Xy%:ry%!8=&C+S_%+4+(&E*dl%)+18:ry%!4=Xy%-52:z$=
Py(M%,U%):
(?((S%!(M%*4))+278)
z$,"E")
(X_%<>256)
Y$=($((S%!(M%*4))+291)):Y$+=
z$,"E")-1)+"
10":Y$+=
t(0.8,0,&FA0,
(Y$)):Y$+=
z$,"E")+1):Y$+=
t(1,0,0,
(Y$)):Y$+=" "+$((S%!(M%*4))+303)
Y$=($((S%!(M%*4))+291))+z$+" "+$((S%!(M%*4))+303)
z$,"E")
(X_%<>256)
3^Y$=
z$,"E")-1)+"
10":Y$+=
t(0.8,0,&FA0,
(Y$)):Y$+=
z$,"E")+1):Y$+=
t(1,0,0,
(Y$))
Y$=z$
X_%<>256
7z$(ry%!20)="":
&400E2,,ry%:X%=((Z%!4)-(Z%!20)):Y%=((Z%!16)-(Z%!24))+Xy%:
&40086,X_%,Y$,784,(X%+&C+S_%+4)+8,(Y%-52)+&E
$(ry%!20)=Y$:
&400E2,,ry%
:Xy%-=60:
tl(Xy%,M%,U%)qy%!0=A%(7):qy%!4=&C+S_%+4:qy%!16=Xy%:qy%!&C=&C+S_%+4+(&E*dl%)+18:qy%!8=Xy%-52:qy%!24=Ka%:qy%!28=o`%:qy%!32=&E:$(qy%!24)=
Py(M%,U%):
&400C2,Zy%,qy%
Xy%,M%,U%)iy%!0=(&C+(S_%))+4:iy%!&C=Xy%:iy%!8=((&C+(&C*16))+4)+(&C*16)+44:iy%!4=Xy%-44:$(iy%!20)=$((S%!(M%*4))+281):
U%>=P%
iy%!16=(iy%!16
(1<<21)))
iy%!16=(iy%!16
(1<<21)))
Sy(M%,U%)
(1<<21))
&400E2,,iy%:iy%!0=((&C+(S_%))+4)+(&C*16)+44+16:iy%!&C=Xy%:iy%!8=((&C+(&C*16))+4)+(&C*16)+44+16+(&C*16)+44:iy%!4=Xy%-44:$(iy%!20)=$((S%!(M%*4))+294):
U%>=P%
iy%!16=(iy%!16
(1<<21)))
iy%!16=(iy%!16
(1<<21)))
Sy(M%,U%))
(1<<21))
&400E2,,iy%:Xy%-=60:
`_(M%,U%,cO%)?(
L(U%)+
F(M%))=cO%:Z%!0=A%(7):Z%!4=(&C+(S_%))+4:Z%!8=Xy%-44:Z%!&C=((&C+(S_%))+4)+(&C*16)+44+16+(&C*16)+44:Z%!16=Xy%:
&400C9,,Z%
Sy(M%,U%)
U%=ty%
D$=((!((S%!(M%*4))+277))
(1<<8))=0
:=((?(
L(U%)+
F(M%)))
r_(M%,U%)
U%=ty%
L(U%)+
F(M%))
n(M%,U%)
U%=ty%
ny(M%):=
L(U%)+
F(M%)))/(&A^(?((S%!(M%*4))+279))))
Rl(M%,U%,`%)!(
L(U%)+
F(M%))=`%:
Py(M%,U%)
U%=ty%
L(U%)+
F(M%)))
hu(M%,U%,F)|(
L(U%)+
F(M%))=F:
bn%44:bn%!0=A%(7):bn%!4=4:
&400CE,,bn%:
&400C4,,bn%:bn%+=4:
YJ%44,Fu%44,LJ%44,`_%44,jJ%44,dJ%44,nJ%44,ou%44,Ru%44:
ln%44,ga%44:Ga%=jJ%+8:ln%!0=A%(37):ln%!4=&C:
&400CE,,ln%:ln%+=4:ga%!0=A%(37):ga%!4=&D:
&400CE,,ga%:ga%+=4:
Ai%44,Il%44,xl%44
Ai%!0=A%(26):Ai%!4=0:
&400CE,,Ai%:Ai%+=4:Ai%!0=A%(26):Il%!0=A%(26):Il%!4=1:
&400CE,,Il%:Il%+=4:Il%!0=A%(26):xl%!0=A%(26):xl%!4=2:
&400CE,,xl%:xl%+=4:xl%!0=A%(26):J%!0=A%(35):J%!4=0:
&400CE,,J%:ik%=J%!8:tJ%=J%!&C:`k%=J%!16:Su%=J%!20
KJ%44,Na%44,tl%44,u_%44:KJ%!0=A%(35):KJ%!4=1:
&400CE,,KJ%:Za%=KJ%!8:rr%=KJ%!&C:Ol%=(KJ%!16)-(KJ%!8):VZ%=(KJ%!20)-(KJ%!&C):KJ%+=4:tl%!0=A%(35):tl%!4=2:
&400CE,,tl%:`O%=tl%!8:IO%=tl%!&C:tl%+=4:u_%!0=A%(35):u_%!4=3:
&400CE,,u_%:da%=u_%!8:MZ%=u_%!&C
u_%+=8:J%!4=4:
&400CE,,J%:vB%=J%!8:yO%=J%!&C:Na%!0=A%(35):Na%!4=5:
&400CE,,Na%:ja%=Na%!8:WZ%=Na%!&C:Na%+=4:J%!4=6:
&400CE,,J%:zO%=J%!8:_O%=J%!&C:
w_%44,iy%44,bJ%44,ry%44,qy%44:w_%!0=A%(7):w_%!4=1:
&400CE,,w_%:w_%+=8:w_%!0=20:w_%!8=&C+8+(64*16)
iy%!0=A%(7):iy%!4=2:
&400CE,,iy%:iy%+=8:bJ%!0=A%(7):bJ%!4=0:
&400CE,,bJ%:bJ%+=8:ry%!0=A%(7):ry%!4=3:
&400CE,,ry%:ry%!28=wo%:ry%!36=&FF:ry%+=8:qy%!0=A%(7):qy%!4=5:
&400CE,,qy%:qy%+=4:jJ%!0=A%(21):jJ%!4=k:
&400CE,,jJ%:N`%=jJ%!8:gJ%=jJ%!&C
n`%=jJ%!16:gn%=jJ%!20:ou%!0=A%(21):ou%!4=Uy:
&400CE,,ou%:xk%=ou%!8:xo%=(ou%!&C)-gJ%:Nk%=ou%!16:Fo%=(ou%!20)-gJ%:nJ%!0=A%(21):nJ%!4=Qy:
&400CE,,nJ%:oe%=nJ%!8:Do%=(nJ%!&C)-gJ%:jk%=nJ%!16:Dk%=(nJ%!20)-gJ%:dJ%!0=A%(21):dJ%!4=Dy:
&400CE,,dJ%:go%=dJ%!8
Ik%=(dJ%!&C)-gJ%:Mk%=dJ%!16:Xo%=(dJ%!20)-gJ%:`_%!0=A%(21):`_%!4=Ly:
&400CE,,`_%:re%=`_%!8:ue%=(`_%!&C)-gJ%:io%=`_%!16:Gr%=(`_%!20)-gJ%:kn%=`_%!32:Fu%!0=A%(21):Fu%!4=cy:
&400CE,,Fu%:
B(Fu%+8,LJ%+4,36):LJ%!(16+4)=(LJ%!(16+4))
(1<<8)):se%=Fu%!8
Fk%=(Fu%!&C)-gJ%:zo%=Fu%!16:do%=(Fu%!20)-gJ%:Ru%!0=A%(21):Ru%!4=t:
&400CE,,Ru%:UO%=Ru%!8:fO%=Ru%!&C:J%!0=A%(21):J%!4=1:
&400CE,,J%:Rr%=J%!8:wr%=J%!&C:FZ%=J%!16:_r%=J%!20:J%!0=A%(21):J%!4=Fy:
&400CE,,J%:bo%=J%!8:zk%=J%!&C:Io%=J%!16:Fe%=J%!20
J%!0=A%(21):J%!4=x:
&400CE,,J%:We%=J%!8:Ho%=J%!&C:Oo%=J%!16:Ce%=J%!32:J%!0=A%(21):J%!4=f:
&400CE,,J%:ze%=J%!8:uk%=J%!&C:So%=J%!16:Je%=J%!20:J%!0=A%(36):J%!4=k:
&400CE,,J%:YO%=J%!&C:J%!0=A%(36):J%!4=1:
&400CE,,J%:Qr%=J%!&C:sk%=J%!16:Ve%=J%!20
YJ%!0=A%(36):YJ%!4=Cy:
&400CE,,YJ%:hk%=YJ%!8:po%=YJ%!&C:J%!0=A%(36):J%!4=m:
&400CE,,J%:Oe%=J%!8:fo%=J%!&C:J%!0=A%(36):J%!4=a:
&400CE,,J%:Br%=J%!8:De%=J%!&C:Yk%=J%!16:`o%=J%!20:bB%=J%!32:J%!0=A%(36):J%!4=z:
&400CE,,J%:Kr%=J%!8:Tr%=J%!&C
yo%=J%!16:Ck%=J%!20:
Du%44:Du%!0=A%(37):Du%!4=h:
&400CE,,Du%:Ke%=Du%!8:Mo%=Du%!&C:Zr%=Du%!16:Hk%=Du%!20:Du%+=4:J%!0=A%(37):J%!4=X:
&400CE,,J%:vo%=J%!8:Xr%=J%!&C:kk%=J%!16:Zk%=J%!20:J%!0=A%(37):J%!4=by:
&400CE,,J%:tk%=J%!8:ho%=J%!&C:te%=J%!16
we%=J%!20:J%!0=A%(37):J%!4=hy:
&400CE,,J%:pk%=J%!8:Go%=J%!&C:ne%=J%!16:Sr%=J%!20:J%!0=A%(37):J%!4=H:
&400CE,,J%:Kk%=J%!8:wk%=J%!&C:ce%=J%!16:J%!0=A%(37):J%!4=Q:
&400CE,,J%:nk%=J%!8:ro%=J%!&C:Wr%=J%!16:J%!0=A%(37):J%!4=G:
&400CE,,J%:Cr%=J%!8
_o%=J%!&C:Yr%=J%!16:J%!0=A%(37):J%!4=k:
&400CE,,J%:RB%=J%!&C:J%!0=A%(37):J%!4=L:
&400CE,,J%:Xk%=J%!8:fe%=J%!&C:`e%=J%!16:Ge%=J%!20:Le%=J%!28:J%!0=A%(37):J%!4=ty:
&400CE,,J%:de%=J%!8:vk%=J%!&C:to%=J%!16:Pe%=J%!20:J%!0=A%(37):J%!4=gy:
&400CE,,J%
Co%=J%!8:lk%=J%!&C:Jo%=J%!16:Ok%=J%!20:J%!0=A%(37):J%!4=R:
&400CE,,J%:Ae%=J%!8:Wo%=J%!&C:ak%=J%!16:Fr%=J%!20:J%!0=A%(37):J%!4=Y:
&400CE,,J%:Vk%=J%!8:ao%=J%!&C:Pr%=J%!16:ae%=J%!20:J%!0=A%(37):J%!4=zy:
&400CE,,J%:HB%=J%!8:rB%=J%!&C:lr%=J%!16
gr%=J%!20:ba%=J%!28:J%!0=A%(37):J%!4=Ky:
&400CE,,J%:eO%=J%!8:JO%=J%!&C:jr%=J%!16:qZ%=J%!20:Fn%=J%!28:nJ%+=4:ou%+=4:dJ%+=4:`_%+=4:Fu%+=4:YJ%+=4:jJ%+=4:Ru%+=4:J%!0=A%(&D):J%!4=6:
&400CE,,J%:si%=J%!32:!L%=A%(36):
&400C3,,L%:!L%=A%(37):
&400C3,,L%
Oy-=2:
C(A%(21),Uy):
C(A%(21),Qy):
C(A%(21),Dy):
C(A%(21),Ly):
C(A%(21),cy):
C(A%(21),k):
C(A%(21),1):
C(A%(21),t):
C(A%(21),f):
C(A%(21),&B):
C(A%(7),0):
C(A%(7),2):
C(A%(7),1):
C(A%(7),5):
C(A%(7),3):
C(A%(26),0):
C(A%(26),1):
C(A%(26),2)
C(A%(35),0):
C(A%(35),1):
C(A%(35),2):
C(A%(35),3):
C(A%(35),4):
C(A%(35),5):
C(A%(35),6):t=-2:
C(A%(21),Fy):
C(A%(21),x):Fy=&C8:L%!0=A%(21):
&400CB,,L%:uo%=((L%!16)-(L%!8))+gJ%:
C(p%,Jy%)HO%!0=p%:HO%!4=Jy%:
&400C4,,HO%:
D%)D%=
W(D%,40):$D%="Draw":D%!4=&C9:D%!8=0:$(D%+&C)="THDrwLib1.00":D%!24=&7FFFF:D%!28=&7FFFF:D%!32=0:D%!36=0:
My%,nu%,qa%,kr%,UZ%,w`%)
D%:My%=(&A*4):
w`%<>0
fHMy%+=((w`%!0)*4)+8:D%=
W(D%,My%):D%!40=0:
B(w`%,D%+44,((w`%!0)*4)+4)
W(D%,My%)
xJ(D%,2,My%,&7FFFF,&7FFFF,0,0):D%!24=qa%:D%!28=nu%:D%!32=kr%:D%!36=UZ%:=D%
R(D%,G%)D%=
W(D%,4):G%!(G%!4)=0:G%!4+=4:
K(D%,G%,X%,Y%)D%=
W(D%,&C):G%!(G%!4)=2:G%!((G%!4)+4)=X%:G%!((G%!4)+8)=Y%:G%!4+=&C:
v(G%+8,X%,Y%):
p(D%,G%)D%=
W(D%,4):G%!(G%!4)=5:G%!4+=4:
W(D%,G%,X%,Y%)D%=
W(D%,&C):G%!(G%!4)=8:G%!((G%!4)+4)=X%:G%!((G%!4)+8)=Y%:G%!4+=&C:
v(G%+8,X%,Y%):
N_(D%,G%,Nl%,bu%,`u%,Xl%)D%=
W(D%,24):G%!(G%!4)=2:G%!((G%!4)+4)=Nl%:G%!((G%!4)+8)=bu%:G%!((G%!4)+&C)=8:G%!((G%!4)+16)=`u%:G%!((G%!4)+20)=Xl%:G%!4+=24:
ty(D%,G%,Nl%,bu%,`u%,Xl%)G%!(G%!4)=2:G%!((G%!4)+4)=Nl%:G%!((G%!4)+8)=bu%:G%!((G%!4)+&C)=8:G%!((G%!4)+16)=`u%:G%!((G%!4)+20)=Xl%:G%!4+=24:
Fy(Hu%,MJ%,D_%,GJ%,a_%)Hu%!0=MJ%:Hu%!4=D_%:Hu%!8=GJ%:Hu%!&C=a_%:
K_(D%,G%,Nl%,bu%,`u%,Xl%,yk%,je%)D%=
W(D%,28):G%!(G%!4)=6:G%!((G%!4)+4)=Nl%:G%!((G%!4)+8)=bu%:G%!((G%!4)+&C)=`u%:G%!((G%!4)+16)=Xl%:G%!((G%!4)+20)=yk%:G%!((G%!4)+24)=je%:G%!4+=28:
v(G%+8,Nl%,bu%):
v(G%+8,`u%,Xl%):
v(G%+8,yk%,je%):
xJ(D%,Qe%,My%,MJ%,D_%,GJ%,a_%)D%!0=Qe%:D%!4=My%:D%!8=MJ%:D%!&C=D_%:D%!16=GJ%:D%!20=a_%:
W(D%,My%)
K(My%)
A("Mem")
:Ry%+=My%:=Ry%-My%
v(Hu%,X%,Y%)
X%<Hu%!0
Hu%!0=X%
X%>Hu%!8
Hu%!8=X%
Y%<Hu%!4
Hu%!4=Y%
Y%>Hu%!&C
Hu%!&C=Y%
My%,Z$(),U%())
r%,D%,i`%:D%=
W(D%,8):i`%=D%:My%=8:
(Z$(),1):My%+=(1+1+
(Z$(r%))+3)
3):D%=
W(D%,(1+1+
(Z$(r%))+3)
3)):?D%=U%(r%):$(D%+1)=Z$(r%)+
:i`%!0=0:i`%!4=My%:=i`%
My%,B$,vr%,GZ%,To%,ky$,xn%,Bn%,X%,Y%,xi%)
dy%,D%:My%=80+((
(B$)+1+3)
3)):D%=
W(D%,My%):
&40081,,ky$,xn%*16,xn%*16,0,0
dy%:v%!0=0:v%!4=0:v%!8=0:v%!&C=0:v%!16=-1:
ND%!24=
(xi%))*(1<<16):D%!28=
(xi%))*(1<<16):D%!32=-(D%!28):D%!36=D%!24
D%!24=1<<16:D%!28=0:D%!32=0:D%!36=1<<16
:D%!40=0:D%!44=0:
&400A1,dy%,B$,864+(1<<18),&7FFFFFFF,&7FFFFFFF,v%,D%+24:
&40082,dy%:
1:X%-=((((v%!28)-(v%!20))/400)<<8)/2:Y%-=((((v%!32)-(v%!24))/400)<<8)/2
2:X%-=((((v%!28)-(v%!20))/400)<<8):Y%-=((((v%!32)-(v%!24))/400)<<8)
3:X%-=((((v%!28)-(v%!20))/400)<<8)/2:Y%-=((((v%!32)-(v%!24))/400)<<8)
4:X%-=((((v%!28)-(v%!20))/400)<<8)/2
5:X%-=((((v%!28)-(v%!20))/400)<<8):Y%-=((((v%!32)-(v%!24))/400)<<8)/2
Y%-=(((xn%*&3E8)/400)<<8)/2
xJ(D%,&C,My%,X%,Y%,X%+((((v%!28)-(v%!20))/400)<<8),Y%+((((v%!32)-(v%!24))/400)<<8)):D%!48=1:D%!52=vr%:D%!56=GZ%:D%!60=To%:D%!64=xn%*640:D%!68=xn%*640:D%!72=X%:D%!76=Y%:$(D%+80)=B$+
(0):=D%
P(N%)=(((N%*&3E8)/400)<<8)
1,"nearest_ten()="+
I%,q%:
I%+=1:c=c*&A:
c>=1:=&A^-I%
I%+=1:c=c/&A:
(c)<=1:=&A^I%
Iu(cZ%,A_%,W$,w$,s$,iy$,S,W,C,V,RJ,n,M$(),S%(),J$(),W%,H%,KJ,_J,aZ%,yZ%,fZ%,U,A)u=20<<8:v=20<<8:
Yl%,xZ%,al%,Ua%,yl%,ii%,wu%,Cn%:
gy%,q_%,by%,t_%,MB%,dy%,Qy%,Kl%,Ay%,Z$(),U%(),My%,r%:
VO%,Ln%,ml%,D%,P_%,Q_%,b$:P_%=W%:Q_%=H%:b$=iy$
:ml%=(A_%
1)<>0:Ln%=(A_%
2)<>0:Lr%=(A_%
4)<>0:
:D%=jy%:
hJ(D%):jy%=D%:jy%!24=0:jy%!28=0:jy%!32=P_%:jy%!36=Q_%:
Z$(0),U%(0):Z$(0)=a$:U%(0)=1:G%=
jy(My%,Z$(),U%()):
w$<>""
P(20)*2
Yl%=0
s$<>""
P(20)*2
f`%=0
W$<>""
P(38)*1.3
al%=0
b$<>""
P(20)*1.3
Ua%=0
&40081,,a$,&E*16,&E*16,0,0
&400A1,dy%,
(V),1<<8,&7FFFFFFF,&7FFFFFFF
,,,Qy%:Kl%=
P(Qy%/&3E8):
&400A1,dy%,
(W),1<<8,&7FFFFFFF,&7FFFFFFF
,,,Qy%:Qy%=
P(Qy%/&3E8):
&40082,dy%:
Qy%>Kl%
MB%=&4B0+Qy%
MB%=&4B0+Kl%
MB%=0
&40081,,a$,16*16,16*16,0,0
dy%:ii%=
(M$(),1)+1)*16))+(
(M$(),1)*256*&C):Qy%=0:
Ay%=0
(M$(),1):
&400A1,dy%,M$(Ay%),1<<8,&7FFFFFFF,&7FFFFFFF
,,,Kl%:
Kl%>Qy%
Qy%=Kl%
:yl%=
P(Qy%/&3E8)+(&80*256)+(32*256):
&40082,dy%:wu%=P_%-u-yl%:Cn%=(Q_%/2)-(ii%/2):
YJ(D%,jy%,wu%,Cn%,M$(),S%())
yl%=0
:gy%=u+f`%+MB%:by%=P_%-(2*u)-yl%:
&40081,,a$,&E*16,&E*16,0,0
uni%=0:In%=0:jn%=(by%-gy%)/
(J$(),1):
(J$(),1):
&400A1,dy%,J$(r%),1<<8,&7FFFFFFF,&7FFFFFFF
,,,VO%:
VO%>In%
In%=VO%
:ni%=
((In%^2)/2):
P(In%/&3E8)<jn%
P(&E):un%=
:ni%=
P(ni%/&3E8)
:yi%=0:pa%=by%-gy%
P(&E):un%=
yi%=+1
yi%=-1
:pa%=by%-gy%-&2EE0
:yi%=0:pa%=by%-gy%
d(C-S)/&A:jn%=pa%/((C-S)/A):N=S:
&400A1,dy%,
(N),1<<8,&7FFFFFFF,&7FFFFFFF
,,,Qy%:
Qy%>=jn%
*N=S:A+=(
d(C-S)/&64):jn%=pa%/((C-S)/A)
(N>C)
A>0.5
(A+0.5)
d(A):A=
(A/l)*l
My(S,U,A):C=
W_(C,U,A)
&40082,dy%:
q_%=v+Yl%+ni%
q_%=v+Yl%
:t_%=Q_%-v-al%-Ua%:
#Wk%=
:j`%=(t_%-q_%)-&2EE0:
el%=+1
el%=-1
:el%=0:j`%=t_%-q_%
:co%=
P(&E)*2:e=(V-W)/(j`%
co%):
e>0.5
(e+0.5):
((V-W)
V=(((V+e)
e)*e)+(W
d(e):e=
(e/l)*l
Yu(gy%,q_%,by%,t_%,W$,w$,s$,b$,P_%,Q_%,al%):T=pa%/(C-S):
yi%<0
Uy%=gy%+&2EE0:Uy%-=S*T
Uy%=gy%:Uy%-=S*T
:D=j`%/(V-W):
el%<0
h%=q_%+&2EE0:h%-=W*D
h%=q_%:h%-=W*D
cJ(D%,gy%,by%,d,D,h%,C-1,0,el%,Sn%):
Zu(D%,gy%,by%,d,D,h%,J$(),un%,Ln%)
cJ(D%,gy%,by%,d,D,h%,(C-S)/A,yi%,el%,Sn%):
Ia(D%,gy%,by%,d,D,h%,S,C,A,yi%)
ll(D%,q_%,t_%,n,T,Uy%,W,V,e,((V-W)/e)+1E-7,el%):
Yu(gy%,q_%,by%,t_%,W$,w$,s$,b$,P_%,Q_%,al%)
G%,My%:
W$<>""
N(My%,W$,0,-256,1,Z$(0),38,3,(P_%/2),Q_%-v,0)
b$<>""
N(My%,b$,0,-256,1,Z$(0),20,3,(P_%/2),(Q_%-al%-v),0)
w$<>""
N(My%,w$,0,-256,1,Z$(0),20,3,((by%-gy%)/2),v+Yl%-
P(20),0)
s$<>""
N(My%,s$,0,-256,1,Z$(0),20,4,u+f`%-
P(20),((t_%-q_%)/2),90)
cJ(D%,gy%,by%,d,D,h%,Mr%,la%,el%,
G%,My%,o_%,i_%,X%:
el%=0
h%=(d*D)+h%
el%<0
h%=q_%
h%=t_%
:Sn%=h%:My%=0:G%=
B(My%,0,-1,400,60+1,0):
K(0,G%,gy%,h%):
la%<0
W(0,G%,gy%+(&2EE0/4),h%):
W(0,G%,gy%+(&2EE0/2),h%+(&2EE0/4)):
W(0,G%,gy%+(&2EE0/2),h%-(&2EE0/4)):
W(0,G%,gy%+(&2EE0*0.75),h%):
W(0,G%,by%,h%):o_%=gy%+&2EE0:i_%=by%
la%=0
W(0,G%,by%,h%):o_%=gy%:i_%=by%
W(0,G%,by%-(&2EE0*0.75),h%):
W(0,G%,by%-(&2EE0/2),h%+(&2EE0/4)):
W(0,G%,by%-(&2EE0/2),h%-(&2EE0/4)):
W(0,G%,by%-(&2EE0/4),h%):
W(0,G%,by%,h%):o_%=gy%:i_%=by%-&2EE0
R(0,G%):
X%=o_%
((i_%-o_%)
Mr%):G%=
B(My%,0,-1,&64,0+1,0):
N_(0,G%,X%,h%,X%,h%-&4B0):
Fy(G%+8,X%,h%-&4B0,X%,Y%):
R(0,G%):
Zu(D%,gy%,by%,d,D,h%,J$(),un%,zZ%)
G%,My%,X%,r%,Bn%,xi%,q%:h%=(d*D)+h%:
h%<q_%
h%=q_%
*q%=((by%-gy%)
(J$(),1)+1)):gy%+=q%/2
q%=(by%-gy%)
(J$(),1)
dBn%=4:xi%=0:
X%=gy%
q%:G%=
N(My%,J$(r%),0,-256,1,Z$(0),&E,Bn%,X%,h%-&898-
P(&E),xi%):r%+=1:
Bn%=2:xi%=45:
X%=gy%
q%:G%=
N(My%,J$(r%),0,-256,1,Z$(0),&E,Bn%,X%+
P(&E),h%-&898,xi%):r%+=1:
Ia(D%,gy%,by%,d,D,h%,S,C,A,la%)
G%,My%,X%,F:h%=(d*D)+h%:
h%<q_%
h%=q_%
h%>t_%
h%=t_%
la%<0
o_%=gy%+&2EE0:i_%=by%
la%=0
o_%=gy%:i_%=by%
o_%=gy%:i_%=by%-&2EE0
=o_%+=((i_%-o_%)
((C-S)/A))/2:i_%+=((i_%-o_%)
((C-S)/A))/2
:F=S:
X%=o_%
(i_%-o_%)
((C-S)/A):G%=
N(My%,
F,0,-256,1,Z$(0),&E,3,X%,h%-&898,0):F+=A:
ll(D%,q_%,t_%,n,T,Uy%,W,V,A,Mr%,la%)
G%,My%,o_%,i_%,Y%,F,@%,dO%,oy:oy=A:
oy<1:oy=oy*&A:dO%+=1:
@%="+F."+
(dO%)
Uy%=(n*T)+Uy%:
Uy%<gy%
Uy%=gy%
Uy%>by%
Uy%=by%
:My%=0:G%=
B(My%,0,-1,400,60+1,0):
K(0,G%,Uy%,q_%):
la%<0
W(0,G%,Uy%,q_%+(&2EE0/4)):
W(0,G%,Uy%+(&2EE0/4),q_%+(&2EE0/2)):
W(0,G%,Uy%-(&2EE0/4),q_%+(&2EE0/2)):
W(0,G%,Uy%,q_%+(&2EE0*0.75)):
W(0,G%,Uy%,t_%):o_%=q_%+&2EE0:i_%=t_%
la%=0
W(0,G%,Uy%,t_%):o_%=q_%:i_%=t_%
W(0,G%,Uy%,t_%-(&2EE0*0.75)):
W(0,G%,Uy%+(&2EE0/4),t_%-(&2EE0/2)):
W(0,G%,Uy%-(&2EE0/4),t_%-(&2EE0/2)):
W(0,G%,Uy%,t_%-(&2EE0/4)):
W(0,G%,Uy%,t_%):o_%=q_%:i_%=t_%-&2EE0
R(0,G%):F=W:
Y%=o_%
((i_%-o_%)
Mr%):G%=
B(My%,0,-1,&64,0+1,0):
N_(0,G%,Uy%,Y%,Uy%-&4B0,Y%):
Fy(G%+8,Uy%-&4B0,Y%,Uy%,Y%):
R(0,G%):G%=
N(My%,
(F),0,-256,1,a$,&E,5,Uy%-&898,Y%,0):F+=A:
gJ(D%,Uy%,h%,T,D,Iy,IJ,Vl%,nu%,qa%)
X%,Y%:X%=Uy%+(Iy*T):Y%=h%+(IJ*D):
NJ(D%,X%,Y%,Vl%,nu%,qa%):
NJ(D%,X%,Y%,Vl%,nu%,qa%)
Vl%<>0
G%,My%:G%=
B(My%,nu%,qa%,0,0,0):
K(0,G%,X%-&708,Y%+&708):
W(0,G%,X%+&708,Y%+&708):
W(0,G%,X%+&708,Y%-&708):
W(0,G%,X%-&708,Y%-&708):
W(0,G%,X%-&708,Y%+&708):
p(0,G%)
K(0,G%,X%-&708,Y%-&708):
W(0,G%,X%,Y%+&708):
W(0,G%,X%+&708,Y%-&708):
W(0,G%,X%-&708,Y%-&708):
p(0,G%)
K(0,G%,X%,Y%+&708):
W(0,G%,X%+&708,Y%):
W(0,G%,X%,Y%-&708):
W(0,G%,X%-&708,Y%):
W(0,G%,X%,Y%+&708):
p(0,G%)
K(0,G%,X%,Y%+&708):
W(0,G%,X%,Y%-&708):
K(0,G%,X%-&708,Y%):
W(0,G%,X%+&708,Y%)
K(0,G%,X%-&708,Y%+&708):
W(0,G%,X%+&708,Y%-&708):
K(0,G%,X%-&708,Y%-&708):
W(0,G%,X%+&708,Y%+&708)
K(0,G%,X%,Y%+&708):
K_(0,G%,X%+(&708*1.25),Y%+&708,X%+(&708*1.25),Y%-&708,X%,Y%-&708):
K_(0,G%,X%-(&708*1.25),Y%-&708,X%-(&708*1.25),Y%+&708,X%,Y%+&708):
p(0,G%)
R(0,G%)
f_(D%,Uy%,h%,T,D,Ry,p,Ty,My,Vl%,nu%,qa%)
(p=0)
((h%+(p*D))<>Sn%)
%p=Sn%:My=h%+(My*D):
Ty<Ry
Ry,Ty
Q_(D%,Uy%+(Ry*T),p,Uy%+(Ty*T),My,Vl%,nu%,qa%)
Ty<Ry
Ry,Ty
Q_(D%,Uy%+(Ry*T),h%+(p*D),Uy%+(Ty*T),h%+(My*D),Vl%,nu%,qa%)
Q_(D%,MJ%,D_%,GJ%,a_%,Vl%,nu%,qa%)
X%,Y%,G%,My%:
D_%>=a_%
B(My%,nu%,qa%,0,0,0):
N_(0,G%,MJ%,D_%,MJ%,a_%):
W(0,G%,GJ%,a_%):
W(0,G%,GJ%,D_%):
W(0,G%,MJ%,D_%):
p(0,G%):
R(0,G%):
Zl%,Nl%,bu%,`u%,Xl%,D%:G%=
B(My%,nu%,-1,0,0,0):Zl%=GJ%-MJ%:D%=
W(D%,24*((a_%-D_%+Zl%)
&DAC)):
Y%=a_%-&DAC
D_%-Zl%
-&DAC:
Y%+Zl%>a_%
`u%=a_%-Y%+MJ%:Xl%=a_%
`u%=GJ%:Xl%=Y%+Zl%
Y%<D_%
Nl%=D_%-Y%+MJ%:bu%=D_%
Nl%=MJ%:bu%=Y%
ty(D%,G%,Nl%,bu%,`u%,Xl%):
R(0,G%):
Fy(G%+8,MJ%,D_%,GJ%,a_%)
Zl%,Nl%,bu%,`u%,Xl%,D%:G%=
B(My%,nu%,-1,0,0,0):Zl%=GJ%-MJ%:D%=
W(D%,24*((a_%-D_%+Zl%)
&DAC)):
Y%=a_%-&DAC
D_%-Zl%
-&DAC:
Y%+Zl%>a_%
`u%=GJ%-(a_%-Y%):Xl%=a_%
`u%=MJ%:Xl%=Y%+Zl%
Y%<D_%
Nl%=GJ%-(D_%-Y%):bu%=D_%
Nl%=GJ%:bu%=Y%
ty(D%,G%,Nl%,bu%,`u%,Xl%):
R(0,G%):
Fy(G%+8,MJ%,D_%,GJ%,a_%)
B(My%,nu%,-1,0,0,0):D%=
W(D%,24*(((a_%-D_%)
&DAC)+1)):
Y%=D_%
&DAC:
ty(D%,G%,MJ%,Y%,GJ%,Y%):
R(0,G%):
Fy(G%+8,MJ%,D_%,GJ%,a_%)
B(My%,nu%,-1,0,0,0):D%=
W(D%,24*(((GJ%-MJ%)
&DAC)+1)):
X%=MJ%
&DAC:
ty(D%,G%,X%,D_%,X%,a_%):
R(0,G%):
Fy(G%+8,MJ%,D_%,GJ%,a_%)
YJ(D%,jy%,wu%,Cn%,M$(),S%())
Y%,N%,G%,My%:Y%=Cn%:
S%(N%,0)
(3<<30)
(M$(),1):
S%(N%,0)
(1<<30)
>[G%=
B(My%,S%(N%,1),S%(N%,2),400,0,0):
K(0,G%,wu%,Y%):
W(0,G%,wu%+(&80*256),Y%):
R(0,G%)
S%(N%,0)
(2<<30)
NJ(D%,wu%+(64*256),Y%,S%(N%,0)
&FF,S%(N%,1),S%(N%,2))
N(My%,M$(N%),0,-256,1,Z$(0),&E,0,wu%+(&80*256)+(32*256),Y%,0):Y%+=ii%/(
(M$(),1)+1):
(M$(),1):
Q_(D%,wu%,Y%-(
P(&E)/2),wu%+(&80*256),Y%+(
P(&E)/2),S%(N%,0)
&FF,S%(N%,1),S%(N%,2)):G%=
N(My%,M$(N%),0,-256,1,Z$(0),&E,0,wu%+(&80*256)+(32*256),Y%,0):Y%+=ii%/(
(M$(),1)+1):
k(e_,XJ)
me%:me%=e_/XJ:e_-=(me%*XJ):=e_
My(`y,U,A)
ly:ly=`y-
k(`y-U,A):
ly>`y
F ly-=A
W_(_y,U,A)
k(_y-U,A)
I iy=_y+(A-
k(_y-U,A)):
iy<_y
J iy+=A
Xi(D%,
G%,aJ%,qJ%,PB%,g,FJ)
xi%:j=FJ-g:
j>&B4
j>270
zy(D%,G%,aJ%,qJ%,PB%,g,g+90):g+=90
zy(D%,G%,aJ%,qJ%,PB%,g,g+90):g+=90
zy(D%,G%,aJ%,qJ%,PB%,g,g+90):g+=90
zy(D%,G%,aJ%,qJ%,PB%,g,FJ):
zy(D%,
G%,aJ%,qJ%,K,b,o)
ry,Z_,my,Q_,y_,ZJ,OJ,`_,CJ:my=
(b)*K:Z_=
(90-b)*K:Q_=
(90-o)*K:y_=
(-o)*K:ry=(K/1.8)*((o-b)/90):ZJ=
(b)*ry:MJ=
(b)*ry:`_=
(o)*ry:CJ=
(o)*ry
K_(D%,G%,(Z_+ZJ+aJ%)*256,(my-MJ+qJ%)*256,(Q_-`_+aJ%)*256,(y_+CJ+qJ%)*256,(Q_+aJ%)*256,(y_+qJ%)*256):
My%,aJ%,qJ%,K,b,o,fB%,tB%)
G%:G%=
B(My%,fB%,tB%,0,0,0):
K(0,G%,aJ%<<8,qJ%<<8):my=
(b)*K:Z_=
(90-b)*K:
W(0,G%,(Z_+aJ%)*256,(my+qJ%)*256):
Xi(0,G%,aJ%,qJ%,K,b,o):
W(0,G%,aJ%*256,qJ%*256):
p(0,G%):
R(0,G%):=G%
My%,jy%,aJ%,qJ%,K,A(),s%,A_%,X%(),W$,Yl%,_)
G%,Rn%,b,o:
Rn%=0
(M$(),1):
A(s%,Rn%,1)>0
XOo=b+((A(s%,Rn%,1)/_)*360):G%=
j_(My%,aJ%,qJ%,K,b,o,X%(Rn%,1),X%(Rn%,2)):b=o
v(jy%+24,(aJ%-K)*256,(qJ%-K)*256):
v(jy%+24,(aJ%+K)*256,(qJ%+K)*256):G%=
N(My%,W$,0,-256,1,Z$(0),20,3,aJ%*256,((qJ%+K)*256)+(Yl%/1.2),0):
v(jy%+24,G%!8,G%!&C):
v(jy%+24,G%!16,G%!20):=G%
Lu(M$(),
Qy%,Kl%,Ay%:
&40081,,a$,16*16,16*16,0,0
dy%:ii%=
(M$(),1)+1)*16))+(
(M$(),1)*256*&C):Qy%=0:
Ay%=0
(M$(),1):
&400A1,dy%,M$(Ay%),1<<8,&7FFFFFFF,&7FFFFFFF
,,,Kl%:
Kl%>Qy%
Qy%=Kl%
:yl%=
P(Qy%/&3E8)+(&80*256)+(32*256):
&40082,dy%:
jy%,A_%,W$,A_$,P_%,Q_%,A(),M$(),X%(),G$(),vy,kJ%)
G%,gu%,lJ%,K,Qy%,eu%,yl%,ii%,s%,X%,Y%,_,a_,My%,Z$(),U%(),D%:u=20<<8:v=20<<8:D%=jy%:
hJ(D%):jy%=D%:jy%!24=0:jy%!28=0:jy%!32=P_%:jy%!36=Q_%:
Z$(0),U%(0):Z$(0)=a$:U%(0)=1:G%=
jy(My%,Z$(),U%())
^(Qy%=P_%-(2*u):eu%=Q_%-(2*v):
W$<>""
_Dal%=
P(38)*1.3:G%=
N(My%,W$,0,-256,1,Z$(0),38,3,(P_%/2),Q_%-v,0)
al%=0
b$<>""
bJUa%=
P(20)*1.3:G%=
N(My%,b$,0,-256,1,Z$(0),20,3,(P_%/2),(Q_%-al%-v),0)
Ua%=0
:eu%-=al%+Ua%:Yl%=
P(20)*1.4:
4)<>0
Lu(M$(),ii%,yl%):wu%=P_%-yl%-u:Cn%=(Q_%/2)-(ii%/2):
YJ(D%,jy%,wu%,Cn%,M$(),X%()):Qy%-=yl%+u
Qy%>=eu%
K=eu%/2
K=Qy%/2
K-=256:gu%=eu%/((K*2)+Yl%):lJ%=Qy%/(K*2):
(gu%*lJ%)>=(kJ%+1)
K<=256:
(gu%*lJ%)<(kJ%+1)
P,"Cannot fit pie charts"
kJ%:_=0:
(A(),2):_+=A(s%,I%,1):
:QJ=(
((K^2)*(vy/a_))):d_=(Qy%/lJ%)/2:l_=(eu%/gu%)/2:
kJ%:X%=((s%
lJ%)*(d_*2))+d_:Y%=((s%
lJ%)*(l_*2))+l_:_=0:
(A(),2):_+=A(s%,I%,1):
o_(My%,jy%,(X%+u)/256,(Y%+v)/256,(
((QJ^2)*(_/vy)))/256,A(),s%,A_%,X%(),G$(s%),Yl%,_):